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SYSTEM PERIPHERAL PACKAGES AI'TD OVERLAYS 


INTRODUCTION 

All peripheral packages that begin with a numberal are special 
operating system packages or equipment driver overlays. The system 
packages begin with the numeral "1" and begin execution at address 
1000 of peripheral memory. Their functions are to load jobs onto the 
disk, make control point assignments, process the control statements, 
and print the jobs' output. Whenever specialized operations , i.e. 
read tape, punch cards, translate control statements, etc., are re¬ 
quired, an overlay is loaded into the requesting PP at location 2000. 
These overlays begin with the numberal "2" and parameters are passed 
tn them by direct core cells (l-74g). Most of them are maintained in 
RPL (resident peripheral library), however they could be kept in PLD 
(peripheral library directory) if the system packages searched this 
table. Since most of them are fairly short, the system packages 
expect them to reside in central memory. 







ROUTINE: 


lAJ - Advance Job. 


PURPOSE; 


GENERAL: 


METHOD: 


To advance the status of a job by controlling the processing 
of the next control card or terminating the job. 


This package is called by MTR on its main loop and the following 
conditions prevail when lAJ is called. 

a. A job has been assigned to a control point by IBJ. 

b. The central processor is not executing the job at the 

control point. 

c. The storage move flag is not set. 

d. The control point is not listed in the CPU stack, i.e., 

it is not vfaiting on the central processor. 


1. If an error flag for the control point is set, 2EF is 
called to process the error. This routine will issue 
the proper error diagnostic to the dayfile and then 
position the control card buffer parameters to the 
statement after an EXIT card or, if no EXIT card to 
found, to the record separator. 

2. 2TS is called to process the control statements in the 
order encountered and all the statements will be processed 
before lAJ regains control. 

3. If the control point has zero priority, i.e., PP program 
that uses central memory, all files and equipment assigned 
to this control point are dropped by 2DF and monitor. A 
request is also made to monitor to release the storage 
reserved by this control point and a pause loop is main¬ 
tained until the field length is zero. The control point 
is then cleared of information and lAJ is released. No 
dayfile data will be written in this case. 

4. In the normal case with a priority set at the control 
point, an attempt is made to locate an "OUTPUT" circular 
buffer so that it may be emptied if it is not. The 
first lOOg words of the program are searched for the 
buffer. The lower 18 bits of each of these words specify 
an address where the file name and status is located. If 
the address is within the field length, the name is checked 
for "OUTPUT." The search continues until RA+lOOg words 
have been checked. 
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5 . 


If the buffer status indicates that a file mark has already 
been requested, it is assumed that the buffer is emptied 
of usable information. If the file mark is not set, then 
the buffer will be dumped if 

a. it is a disk file 

b. the last operation was a write. 

2WD is called to write the buffer contents on the disk. 

6. Both the amount of central processor and peripheral 
processor running time is read from the control point, 
converted to decimal, and sent to the dayfile. 

7. A. search is made of FNT to find a file named "OUTPUT" 
assigned to this control point. If there is none, then 
such a name is entered into the FNT so that the dayfile 
can be printed. 

8. The file name is then changed to that of the job name 
and the job's priority is also put into the FNT. The 
file is released from the control point by putting a 
zero value in the control point byte. This action will 
cause the print routines (IDJ or ITD) to sense a file 
ready for printing. 

9. All files assigned to this control point in the FNT are 
dropped by 2DF. The FNT/FST entries are completely zeroed. 

10. The upper most byte of the EST has the control point 
assignment for the equipment. All the pieces of equipment 
assigned by this job are released by a monitor request. 

11. The control point area is then cleared and IBJ is called 
to this PP so that another job may be assigned. 
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lAJ ROUTINES 


1000 

1100 

1200 

1320 

1410 

1500 

1640 

1700 

1740 


MAIN PROGRAM 

RECORD RUNNING TIMES 
DECIMAL CONVERSION 
RELEASE OUTPUT FILE 
DROP FILES 

SEARCH FOR OUTPUT BUFFER 
BEGIN OUTPUT FILE 
CALL SUBROUTINE 
CLEAR CP AREA 

DIRECT CORE CELLS 


1000 PlO/14 

P55 

P56 

P50/54 

P70 

P71 

P72 

P74 

P75 

1100 POl 

PlO/14 

P20/30 

P74 

1200 PlO/14 


1700, 1410, 1740, 1500 
1100, 1320, 100, 12-760 

1200, 530, 530 

1640 

1700, 23-760 
1700 

740, 750 
2000 

10-760, 17-760 


CP STATUS 

RA 

FL 

CONTENTS OF INPUT REGISTER 
CONSTANT 1 
CONSTANT 100 
CONSTANT 1800 
CP ADDRESS 

ADDRESS OF INPUT REGISTER 

MESSAGE WORD COUNT 

CPTIME, LATER PP TIME 

CP TIME MESSAGE, LATER PP 
TIME MESSAGE 

CP ADDRESS 

CP OR PP TIME 
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P20/30 

CP TIME MESSAGE. LATER PP 
TIME MESSAGE 


P71 

CONSTANT 100 

1320 

PlO/14 

FNT ENTRY 


P20/24 

FNT STATUS 


P40/44 

CP(21) WITH ADDED PRIORITY 


P50/54 

INPUT REGISTER 


P74 

CP ADDRESS 

1410 

PlO/14 

FNT STATUS, LATER EST ENTRY 


VlQllU 

EST STATUS 


P40/44 

FNT ENTRY 


P46 

FIRST OF FNl’ 


P47 

IN OF FNT 


P50/54 

INPUT REGISTER 


P74 

CP ADDRESS 

1500 

POl 

SEARCH ADDRESS 


PlO/14 

ARGUMENTS LOCATED AFTER RA+2 


P20/24 

CONTROL WORD OF ARGUMENT AT 
RA+2+n 


P40/44 

BUFFER STATUS 


P45 

LAST BYTE OF CONTROL WORD 


P54 

RA 


P55 

FL 


P57 

FST ADDRESS 

1640 

POl 

CONSTANT 2 


PlO/14 

FNT ENTRY 


P20/24 

FNT STATUS 

1700 

(A) 

SUBROUTINE NAME 


POl 

RPL INDEX 


P02/03 

SUBROUTi:-® NAME 
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P04 


RPL STARTING ADDRESS 



PlO/14 

RPL ENTRY 

1740 

POl 

MAXIMUM 200„ WORD COUNTER 
o 


PlO/14 

CP STATUS, LATER ZERO WORD 


£. 






BcitN SEARCH OF CENTRAL STORAGE FOR OUTPUT BUFFER 
SET INITIAL ADDRESS TO RA + 2 


^ LEARCh Ff^T FOR ASSIGNED FILE NO 

( j Is tmlhe A File assigned to this control point ? ‘ 


Does next word have a cleared upper byte ? E 



read pp time from control point area 
Convert time to decimal seconds and milliseconds 

DAYFIUE MESSAGE - PP XXXX XXX SECONDS 


{ NEXT PAGE ) 
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IIAJ PACKAGE CONTJNUED) 
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ROUTINE: 


IBJ -- Begin Job 


PURPOSE: 

GENERAL: 

METHOD: 


To assign a job to a control point and process the job card. 


The package is called by DSD where "X.NEXT" is requested and 
recalled by lAJ. The control point assignemtn is specified 
in the input register upon entry to the package. 

1. If the error flag in CP(20) is set, the package is re¬ 
leased. The error will be processed later by lAJ and 

2EF. 

2. If the priority is not zero, this is a recall entry. 

Otherwise, the following steps occur: 

a. A search is made through FNT for the highest priority 
file of TYPE 0 (INPUT) and no control point assignment. 
If none is found, the job name is set to NEXT (for 
display) and the message IDLE sent to display and the 
package released in recall status. 

b. If a file was found, the file name in FNT is set as 
job name, the file name is changed to INPUT, and the 
TYPE is changed to local. Also, the priority of 
the job is set in the CP. 

3. If the job cards have been loaded, this is a recall entry. 

Otherv/ise, the following steps occur: 

a. 300g words of central memory are requested of MTR. 

If not assigned, the message WAITING FOR STORAGE is 
sent to display and the package released in recall 
status. 

b. If 300 words were assigned, the first ten words are 
set as follows: 


RA =-EA+l = RA+2 = 
RA+3 = 

RA-t^ = RA+5 = RA+6 = 
RA+7 = 


c. 2BP is called to verify the parameters and set 
direct core cells for 2RD. 

d. 2RD is called to read the control statement record 
into CM. 

e. FST is updated to reflect a completed read. The 
control statements are moved from the CM buffer to 
CP control statement buffer using PP locations 
beginning at 7000 as a transient buffer. 


|o 

INPUT 

10 

0 

010 

0 

0300 


File Name and Buffer 
FIRST, IN, OUT 
LIMIT 
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NOTES; 


f. CP(21) is set to reflect the reading of the control 
statements. 

g. 2TJ is called to translate and process the job card. 

The time limit specified on the JOB card is set by 
MTR. 

4. The field length specified on the job card is requested of 
MTR. If not assigned, the message "WAITING FOR STORAGE" 
is sent to display and the package released in recall 
status. 

5. If MTR assigned the memory, the job card is issued to the 
dayfile. 

6. Finally, the package is released. The remaining state¬ 
ments will be processed later by lAJ and 2TS. 

All console messages are sent to display by entering the 
message in CP (30-37). These messages are line 3 of the 
control point display. 

The job card is sent to the dayfile by storing it in the 
message buffer (address specified by P77) and issuing a 
FOl request to MTR. 

All overlays called by IBJ must be in RPL since PID is not 
searched when calling the overlays. These overlays include 
2BP, 2RD, 2TJ. 

Two recall flags are used; 

a. priority given by CP(22). 

b. control cards loaded or not loaded by. CP(21). 

Three conditions may exist which will cause IBJ to be released 
in a recall status. These are: 

1. If there exists ^ unassigned input files in FNT of the 
TYPE input. 

2. If MTR will not assign storage for the buffer to load the 
control cards into CM. 

3. If MTR will not assign storage for the job as specified 
by FL on the JOB card. 

Upon entry to IBJ, two flags (see above) specify whether this 
is the initial entry or a recall entry. If it is a recall 
entry, the flags given above cause the package to skip the 
areas of code it has executed on a previous call. For example, 
if the priority given in CP(22) is zero, this is either the 
initial entry or no unassigned input file was found on the 
previous entry (same as initial entry). If the priority is 
not zero, a file has been assigned and the coding to find and 
assign a file is bypassed. If the job cards have not been 
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loaded (s|>eciried by CP (21 byte 11-0) = 0) they must be loaded 
into the CP control statement buffer. If they have been 
loaded, this coding is skipped. If the priority is non-zero 
and the job cards are loaded, or after these have been done, 
storage is requested for the job. If not assigned, the package 
is released in recall status again. Upon next entry all coding 
will be skipped except this storage r,equest since the 
priority will be non-zero and the job cards are loaded. 

Releasing a PP in recall status involves storing the contents 
of the input register in CP(25) and then releasing the PP 
via MTR request 12. A normal release leaves CP(25)=0. 
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IBJ RouLines 


1000 

Main Program 

1100 

Search lor Job 

1240 

Call (Overlay) 
Subroutine 

1300 

Read Control 
Cards 

1400 

Request Storage 

1440 

Read Job Cards 

1500 

Issue Statement 


1100, 1440, 1400, 1500, 12-760 
740, 750, 12-760, 24-760 


1240 

10-760, 12-760 

1400, 1300, 1240, 14-760 

01-760 


IBJ Routine Pirect Core Parameters 


1000 

r75 

Address of Input register 

1100 

P50/54 

Contents of input register 


P74 

Address of control point 

1240 

(A) 

Name of overlay to be loaded and executed 

1300 

P54 

Field Length (FL) from CP-20 


P55 

Reference Address (RA) 


P57 

Address of INPUT FST entry. 


P63 

Lower 12 bits of IN = , 

after control cares are 


P65 

Lower 12 bits of OUT = 


P70 

0001 (constant) 


P74 

Address of Control point 

1400 

(A) 

Field length (in hundreds) needed 


P56 

Field length (FL) from CP-20. 


P74 

Address of control point 

1440 

P36 

Time Limit (TL) from JOB card (in tens) 


P37 

Field Length (FL) from JOB card (in hundreds) 


P55 

Reference Address (RA) 

1500 

P74 

Address of control point 
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ROUTINE: 


IDJ 


Phase 3 print 


PURPOSE: 

GENERAL: 

METHOD: 


To monitor the processing of an OUTPUT file. 


DSD calls IDJ to a control point to print a jobs' output. 
The package appears as "PRINT" and is loaded at dead start 
when "AUTO" is typed or whenever "X.PRINT" is typed. It 
remains in recall state and is available to print an 
OUTPUT file when one is released. 


1. 4000g words are requested from MTR. When memory has 
been allocated, a line printer is requested and the 
package is modified for the equipment parameters. 

2. The FNT is searched for an "OUTPUT" file and the 
message "IDLE" is displayed until such a file is found. 
When found, a "PRINT" entry is made in the dayfile and 
when the printer becomes ready, the file name is 
changed to the job name in FNT. At the control point 
the job name appears instead of "PRINT" and the console 
message is changed from "IDLE" to "PRINT". 

3. 2RD is called to read from the disk to the circular 
buffer in central memory. The reading continues until 
the end of the file is encountered or until the central 
memory buffer will not hold another full sector. 

4. 2LP is then called to print this information and will 
continue printing until there is no more data in the 
buffer to print. 

5. If an end-of-file has not yet been detected, control 
continues at step 3. When it is detected, the dayfile 
is searched for entries belonging to this job and then 
the entries are printed. Control reverts back to step 2. 















(NEXT PAGE) 


15 



























Call 2R0 overlay 


Call 2SD overlay 






























ROUTINE: 


ILJ -- Phase One Card Load 


PURPOSE: 

GENERAL: 

METHOD: 


To build up an inp’ut file from the card reader onto the disk 


lU is the "READ" package which is called in by DSD when 

"AUTO" is typed at dead start. When "READ" is assigned a 

control point, it remains in recall state and is available 

to read a job whenever the card reader becomes ready. 

1. The job name READ is stored in CP(21). The error flag 
is checked and if an error is sensed, the PP is released 
READ must be reassigned when it is needed again. 

2. If 4000g words (FL) ha/e not been assigned, the routine 
requests the storage and puts itself into PP recall. 

3. A circular buffer address (0003) is entered into the PP 
input register and the first 3 words (RA—RA+2) are 
cleared. Any central program must have 3 words reserved 
for system communication so that means the circular 
buffer parameters are located at RA+3. 

4. FIRST = IN = OUT = 10 are the preset buffer parameters 

and LIMIT = 4000„. 

o 

5. Upon entry the third byte of the input register may 
contain the equipment number of the card reader. If it 
does not, then MTR is asked for the assignment. The 
number will come back in the first byte of the message 
buffer and then is transferred to the third byte of the 
input register. 

6. If the assignment was not completed, "NO CR AVAILABLE" 
is stored in CP(30) and the PP put into recall. 

7. The above 6 steps are initialization procedures and are 
not repeated unless "READ" is dropped and must be 
reassigned. 

8. "READ" appears as the job name in the CP and "IDLE" as 
a console message when no reading is being done. 

9. The channel from the card reader entry in the equipment 
status table (EST) is requested and then the status of 
the card reader is checked. If the reader is not ready, 
the PP is put into recall and released. 

10. After the card reader is found to be ready, the file 
name "READ" and a buffer status of 10^ meaning requested 
coded read is entered into BA. 

11. 2BP is called to check the legality of the buffer 
parameters. 
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12. The equipment number of the card reader from the 
input register is stored in the FST entry. 

13. 2RC is then called to read one card. 

14. The FST entry is updated and stored as is the buffer 
status word (BA). Both reflect an llg condition 
completed coded read. 

15. 2TJ is called to translatqj the job card. The job name 
is entered in PP(30) from 2TJ and is transferred to 
CP(21). Therefore, the control point assigned to READ 
has a new job name (from job card) and a console message 
of "READ" instead of "IDLE". A dayfile entry of the job 
name and READ is made. 

16. Next READ in BA is replaced with the job name and the 
buffer status is changed to request coded write (14g). 

17. Again 2BP is called to verify the buffer parameters. 

Every write operation on the disk is terminated with an 
EOF record so that if a file mark was requested it is 
not completed so that two file marks will not be written. 

18. 2WD is called to write the contents of the buffer of the 
disk. 

19. Upon reentry to lU, the FST entry and the buffer status 
(BA) is updated to reflect a completed coded write. 

20. The file name READ and buffer status of lOg - requested 
coded read - is again entered into BA. 

21. 2BP is called to determine the legality of the buffer 
parameters and the card reader equipment number is 
placed in the third byte of the input register for 2RC. 

22. After 2RC returns control to ILJ, the FST and buffer 
status are updated to reflect a completed coded read. 

23. If a file mark was not read, then the job has not been 
completely read in. The contents of the buffer are 
written on the disk and more cards read until a 6-7-8-9 
card is found. 

24. When a file separator card is sensed, an MTR request (04) 
to update the PP running time at the control point for 
the requesting processor is issued. The time is con¬ 
verted to decimal and sent to the dayfile in the form 
PPXXXX sec. 

25. In order to release the job to the system the job name 
is stored in BA and 2BP is called for a final check of 
the buffer parameters. The disk file is rewound by 
setting the current track to the beginning track in the 












FST. Also the current sector byte is cleared and the 
last buffer status is set to 01. The priority is added 
to the FNT entry and the control point assignment byte 
is cleared. Therefore, the input file is released and 
ready for MTR to assign it a control point for execution. 

26. "READ" with a 10_ request is again entered into BA of 
the circular buffer and 2BP is called to check the 
parameters. An FST entry is cleared in preparation 
for a new file and a check is made for a ready card 
reader. 

27. If a card reader is not ready, the PP is put into recall 
so that it will be able to detect when the card reader 
becomes ready. 
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ILJ Routines 


1000 

Main Prograrn 

1500, 1440, 1600, 1040 

1040 

Process Job 

1700, 1400, 530, 1100, 1300, 

1100 

Dump Buffer 

1400 

1200 

Release Job 

1400 

1300 

Record Time 

4-760, 530 

1400 

Call RPL Package 

2000 

1440 

Request CR 

22-760, 12-760, 100 

1500 

Enter CP Status 

10-760, 12-760, 100, 1740 

1600 

Sense CR Ready 

740, 750, 12-760, 100 

1700 

1740 

Load Buffer 

Preset Buffer Parameters 

1400 




Direct Core Cells 

1000 

P50-54 

Input register 


P70 

Constant 1 


P71 

Constant 180 


P72 

Constant 1000 


P75 

Input register address 

1040 

PlO/14 

Zero word 


P20/24 

FST entry 


P74 

CP address 

1100 

. PlO/14 

CP(21) 


P20/24 

FST entry 


P40/44 

File control word (BA) 


P50/54 

Input register 


P55 

RA 


P57 

FST address 

1200 

PlO/14 

CP(21), zero word 


P20/24 

FST entry 


P35 

Job priority 


P55 

RA 


P57 

FST address 


P74 

CP address 


1200 
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1300 

PlO/14 

P74 

1400 

(A) 

POl 

P02/03 

PlO/14 

1440 

POl 

PlO/14 

P50/54 

P74 

P77 

1500 

POl 

PlO/14 

P54 

P50/54 

P55 

P56 

P74 

1600 

POl 

PlO/14 

P20/24 

P50/54 

P74 

1700 

P20/24 

P40/44 

P50/54 

P55 

P57 

1740 

PlO/14 

P14 

P54 

P55 

P56 


PP time - CP(24) 

CP address 
Package name 
RPL ordinal 
Package name 
RPL entry 
Constant 2 
Message buffer 
Input register 
CP address 

Message buffer address 

Constant 3 

CP(20), zero word 

Cons tant 3 

Input register 

RA 

FL 

CP address 
CR status 
EST status 
EST entry 
Input register 
CP address 
FST entry 

File control word (BA) 
Input register 
RA 

FST address 

Zero 

10 „ 

o 

Constant 3 

RA 

FL 
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ROUTINE: 


ILT Phase One Tape Load 


PURPOSE; 


GENERAL: 


METHOD: 


To load jobs from a magnetic tape onto the disk until, an 
empty file is encountered. 


The package is called by DSD after the operator types 
"X.LOAD." at the console. The control point for the 
package is specified in the input register. 


1. Initialization of the routine involves the following 

steps: 

a. If the requested control point has a job name, the 
package is released. 

b. Otherwise, the job name LOAD is set in the CP(21) 
for display purposes. 

c. 10000^ words of central memory are requested to be 
used as a buffer for reading tape and writing disk, 

d. If MTR does not assign lOOOOg words, the pa.rkage 
is released. 

e. Otherwise, the CM buffer is sot up as follows: 

RA = RA+1 = RA+2 =j' 0 ' 

RA+3 =» 0 File Name and Buffer Statu 

RA+4 = RA+5 = RA+6 =00 04 FIRST, IN, OUT 

RA+7 =jOO 010000_LIMIT 

f. The buffer address, 0003, is stored in the PPU 
input register (internal) for future reference by 
the package. 

g. A tape assignment is requested of the operator by 
storing REQUEST TAPE in CP(30-37). 

h. A function 17 request is sent to MTR while waiting 
for the operator to assign the tape. This function 
is repeated until the tape is assigned. The equip¬ 
ment number specified by the operator is contained 
in CP(22). 

i. The equipment number is stored in PPU input register 
(internal) for future reference by the package. 

2. The following steps occur for the initialization of each 

file (job); 

a. RA+3 is (re) set as follows: 
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TAPE......10 in order to read the tape files. 

b. 2 bp is called to verify the buffer parameters and 
to set up direct core parameters for 2RT. 

c. 2RT is called to read information from the tape and 
store it in buffer in central memory. 

d. The file status (LBS field) in FST is updated 
(odd value) to reflect the record(s) just read. 

e. The buffer status (at RA) is updated (odd value) 
to reflect the record(s) just read. 

f. If a file mark was read at this point, it would have 
been the second consecutive file mark and, therefore, 
the package (ILT) is released. 

g. Othervjise, 2TJ is called to set up the job name and 
priority in direct core cells. 

h. The job name is in the CP for display and dayfile 
accounting purposes. 

i. The message LOAD is sent to the dayfile. 

3. The following steps occur as a loop for loading the tape 

records onto the disk: 

a. The job name (from CP) is stored as file name before 
writing disk so that FNT contains the job name of 
type input. 

b. 2BP is called to set up direct core parameters for 
2WD, i.e., also assigns the new file. 

c. 2WD is called to write the bufferin central memory 
onto the disk, if a file mark was not requested. The 
file marks are automatically handled by 2WD on 
every write. 

d. Again, the FST word and the buffer status are updated 
to reflect the record(s) just written. 

e. The buffer is again loaded as specified before in 
steps 2) a., b., c., d., e. 

4. When a file mark is encountered on the tape (and the 

record(s) are written on disk), the following steps are 

performed to release the disk file (job) just written. 

a. The job name is stored as the file name in order to 
call 2BP to set up direct core parameters for 
rewinding the file. 

b. The file (on disk) is rewound by making the following 
changes to FST. 
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NOTES: 


i. setting current track=beginning track 

ii. setting current sector=0 

iii. setting last buffer status=0001 

c. The priority, from the job card, is entered into FNT. 

d. The file type is set to input. 

e. The file status is cleared from file TAPE by a call to 
2BP and resetting FST. 

PPU time used to load the jobs on the disk is not charged to 
the individual jobs. 

The package ILT is released without completing the tape to disk 
operation if any of the following conditions arise: 

1. too many control cards in a job. 

2. illegal parameters on the job card. 

3. no tracks are available on disk. 

4. the track limit (512 tracks) is exceeded for a job, 

5. the operator drops the CP. 

When the package (ILT) is released, either normally or prematurely, 
the files (tape and disk-FNT/FST), equipment (EST), and storage 
(CP(20)) are released by a special section of lAJ. This section 
releases these items for control points not using the CPU but 
using CM for buffers. lAJ detects this when a CP has a zero (0) 
priority. lAJ is entered to release the package by the master 
loop in MTR. 

The dayfile message LOAD is written via MTR function 01 and 
resident routine located at 530g. 

Since the package is immediately released if 10000^ words are 
not available from MTR, the operator should call LOAD after dead 
start. Otherwise, he will have to wait for the CP's to be 
relatively inactive in order not to run into any storage conflicts. 

All overlays called by ILT must be in RPL since PLD is not 
searched when calling the overlays. These overlays include 
2BP, 2RT, 2WD, 2TJ. 



















ILT Load Tape Routines 


1000 

Main Program 


1300, 1440, IIL 




1100, 1160 

1100 

Dump Buffer 


1400 

1160 

Release Job 


1400 

1240 

Load Buffer 


1400 

1300 

Enter CP Status 


10-760, 12-760 

1400 

Call RPL Package 



1400 

Request Tape 


17-760, 12-760 


Direct ( 

Gore Cells 

P20/24 

FST entry for file sent 

to 2 bP 

P30/34 

Job name from job 

card 

set up by 2TJ 

P35 

Priority from job 

card 

set up by 2TJ 


P40/44 

File Control Word+Buffer 

Status (same as RA+3) 

P50/54 

Input Register 


P55 

RA from CP(20) 


P56 

FL from CPC20) 


P57 

FST entry address set up 

by 2 bP 

P70 

0001 (constant) 


P71 

0100 (constant) 


P72 

1000 (constant) 


P74 

Control point ; address 


P75 

Input register address 
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Phase cnE tape load 
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ROUTINE: 


ITD 


Phase 3 Tape Dump 


PURPOSE: 


GENERAL; 


METHOD: 


To dump completed output files on tape in order of priority 
for off-line printing. 


ITD is assigned a PP and a control point when "X.DIIMP." is 
typed. Whenever all output files are dumped, the package 
is released. 


1. "DUMP" is assigned as the job name for the control 
point. IOOOOq words of central memory are required 
for the buffer and if it is not assigned, the PP is 
released. 

2. The message "REQUEST TAPE" appears as the third line 
of the control point. The operator must enter 

"X.ASSIGN YY.", where YY is a tape equipment number. 

3. The FNT is searched for the highest priority output 
file. 

4. The file is assigned to the control point as a local 
file and the job name from FNT is set into CP(21). 

The job name replaces "DUMP" at the control point and 
"DUMP" is displayed as the console message. 

5. The central memory buffer is filled by 2RD. 

6. 2WT is called and the tape equipment number is set in 
FST. If the tape assigned is V> a return jump is 
made to the BCD write coding in 2WT. A 1" tape assign¬ 
ment giver the binary write of 2WT control. 

7. When the buffer is emptied the FST and buffer status 
are updated. No file mark is written between jobs. 

8. Whenever the job output file has been dumped and a file 
mark requested, 2DF is called to drop the disk tracks 
used by the file. 

9. 2RD and 2'SD search the dayfile for entries pertaining to 

the job and they are written after the job output by 2WT. 

10. All PP time charges at the control point are cleared. 

11. Again FNT is searched for the highest priority output file. 
When no more output files exist, a file mark is written and 
then the tape is backspaced over it. The tape is left in 
this position so that more dumps may be added. 
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PROGRAM: 

PURPOSE: 

GENERAL: 

METHOD: 


2BP -- Read Buffer Parameter 


To examine the buffer arguments for correctness, enter 
file name in FNT, and reserve the file. 


This routine is called by lAJ, IBJ, IDJ, lU, ILT, ITD, 
CIO to check the buffer arguments for range and validity. 
It also enters file name in the FNT, reserves the file 
if possible. The following error messages are produced: 
BUFFER ARG ERROR, and FNT LIMIT. 


1 . 

2 . 

3. 


4. 

5. 

6 . 

7. 

8 . 

9. 


10 . 


11 . 


12 . 


13. 


Read buffer status and arguments. 


Move the arguments to a two word/entry table at P60. 

Check for argument region out of field limit range. 
If in error, display in dayfile - BUFFER ARG ERROR, 
issue a FC of 13B (abort CP), and exit to PP monitor 
loop. 

Check for LIMIT over field limit and go to the error 
procedure if it is. 

Check for OUT? LIMIT. 

Check for IN? LIMIT. 


Check for OUT<FIRST. 
Check for IN '.FIRST. 


Check each character of file name to first blank for 
less than 37. If an error is detected, go through same 
error procedure as above. Also senses inserted characters 
after the first blank as errors. Finally, it checks 
to make certain file name is non-blank. 


Searches FNT for the file name and matching CP number. 

On a find, it saves FST entry address. 

If the file was not found in FNT, it locks out other 
PP's from the FNT. A blank entry is found and the name 
is entered with its CP, file set as local, and priority 
of zero. A blank entry is written into FST. Channel 
15 is released thereby allov/ing other PP's into FNT, and 
FST address is saved. 

Request channel 14 (FST lock out channel). Check LBS 
field of FST for file reserved (even number - reserved). 
If it is not reserved, reserve it (set FST odd), release 
channel 14 and exit. 


If it is reserved, release channel 14, and issue a 17B 
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14. 


function to allow the monitor to move central storage. 

Read CP status. Save reference address. If error flag 
is not set, go back to No. 12 above and continue. If 
flag is set, release PP(12B) and exit to resident PP 
program. 
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2BP Routines 


2000 

Main Program 

2350, 2300, 2150, 2100 

2100 

Alter File Status 

14-740, 14-750, 17-760, 12-760, 100 

2150 

Search FNT 

15-740, 15-750, 530, 13-760, 100 

2300 

Verify File Name 

530, 13-760, 100 

2350 

Verify Argument Values 

530, 13-760, 100 




Direct Core Cells 

2000 

P50/54 

Input register (Buffer address) 


P40/44 

Status 


POl 

Counter for buffer parameters 


P02 

Address for storing buffer arguments 


P60/70 

Buffer arguments (FIRST, IN, OUT, LIMIT) 


PlO/14 

Temporary storage for buffer arguments 

2100 

P57 

File status address 


P20/24 

File status 


P45 

Last buffer status from FST 


P40/44 

Buffer status 


P74 

Control Point address 


PlO/14 

CP status 


P55 

Reference address 

2150 

P20/24 

FNT address and limit 


PlO/14 

FNT entry 


P40/44 

Buffer status (Name of file) 


P51 

Input register (CP for file) 


P57 

File status address 

2300 

POl 

Address of file name 


P40/44 

Buffer status (file name) 

2350 

P53/54 

Argument address 


P56 

Field length 


P60/61 

FIRST 


. P62/63 

IN 


P64/65 

OUT 


P66/67 

LIMIT 
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ROUTINE: 


PURPOSE: 


GENERAL: 


METHOD: 


2BT: - BACKSPACE TAPE 


To backspace a block of small binary or BCD data on tape and set 
buffer addresses accordingly. 


The 2BT routine is called in once the backspace request and tape 
unit request has been determined. 2BT is called from the CIO 
monitor routine. 


A. BINARY 

1. If a binary backspace is requested, two blocks are back¬ 
spaced and then the last one backspaced is read. 

2. This block is checked for a short block; if it is short, 

IN and OUT are set equal to FIRST. 

it is not short, the backing of two blocks and reading 
of one is continued until a short block is found. 

B. BCD 

1. If a binary backspace is not requested, a check is made to 
see if tape type is WT. 

2. If it is not, i.e., tape type is MT, one block is backed 
and IN and OUT set equeal to FIRST and then exit. This 
will backspace the one BCD block. 

3. If the tape type is WT, a transfer is made to location 2401 
(BACKSPACE CODED). A first reference flag is set and a 
value called D = IN-OUT is calculated. 

4. One block is backed and then read into a PP buffer. If the 
block is a file mark, backspace back over it, set IN=OUT= 
FIRST and EXIT. 

5. Otherwise, the block length is compared to D. If less than 
D, reduce D by the block length, back over the block just 
read, and continue the back and a read a block loop with 
the new value of D. 

6. If the block length is greater than D, OUT is set equal to 
FIRST+BLOCK LENGTH - D and IN set equal to FIRST+BLOCK LENGTH, 
the last block read is then stored into the buffer beginn¬ 
ing at FIRST. The action just taken means the first block 
backed over which is small enough to fit in the buffer is 
stored into the buffer. 

7. A check is then made to see if 0UT=FIRST. If yes, the loop 
of calculating D and backspacing is done again. This hap¬ 
pens when the first D calculated was zero, i.e., IN=OUT, 
and the record backspaced and read was a four byte record. 
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8. If OUT does not equal FIRST, the first reference flag is 
checked. If it is set, it is cleared set OUT=OUT-l and 
OUT is checked against FIRST. If OUT=FIRST, a one word 
block was read and the compute D loop is done again. 

9. Once the first reference flag is cleared, a check is made 
to see if the contents of (OUT-1) contains a blank lowest 
byte. If not, set 0UT=0UT-1 and recheck if OUT=FIRST. 

10. If (OUT-1) has a blank lowest byte, IN and OUT are set, 
and EXIT taken. 

11. All of this action causes OUT to be backspaced down the 
buffer one coded card image. 

12. It should be understood that the tape will be backspaced 
but a read is not needed to get the backspaced record into 
the buffer. 
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Does {out - i) contain a dlank cowest byte ? \ 


YES 


l.POATC CiRCULAa BUffcR IN AND OUT ADDRESSES 
EKi7 







































Is 

TAP£ PCS.T.O.SE3 AT &EGiNN;NG 

VES 


SET 

CiaCbi.AR oJFFEa IN "OUT* FIRST 

OF 

F.R5T b^CCK ON TAPE ^ 


EXIT 

FROM OVERLAY 


I NO 



i NO 





-.J 


..J 
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ROUTINE: 

PURPOSE: 

GENERAL: 

METHOD: 


2EF -- Process Error Flag 


To determine type of error and set up to execute the group 
of control cards after the EXIT, statement if one exits. 


2EF is called by the Advance Job routine (lAJ) when the 
error flag is sensed set (non-zero). 


1. Read the control point status word from CP(20). 

Clears the error flag and stores status back to CP(20). 

2. Uses the error flag to pick up address of error message. 
(Error Flag 1- Time Limit, 2- Arithmetic Error, 5- PP 
Call Error, 6- Operator Drop, 7- Track Limit) 

3. Dayfile message routine is called to enter error message 
if the error condition was one of the above. 

4. Control statements are searched untilthe last one is 
read or an EXIT, statement is encountered. The state¬ 
ment address at CP(21) is set to point to either the 
end of the statement list or the statement after the 
EXIT. card. 
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2EF Routines 


2000 

Main Program 

2030, 2100, 531 

2030 

Error Table 


2100 

Search for Exit 



Direct Core Cells 


2000 

P74 

CP address 


PlO/14 

CP status 


POl 

Error Flag 

2100 

P74 

CP address 


P20/24 

Next statement address 


PlO/14 

CP status 
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ROUTINE: 


2LP -- PRINT 


PURPOSE: 

GENERAL: 

METHOD: 


To transfer data from the circular buffer to the line printer. 


2LP is called by the CIO Write Function routine once the file 
type has been determined to be a line printer. 


1. A check is made for data left in the buffer. If there 
is none and the end-of-record was requested, IN and OUT 
are set equal to first, and EXIT is taken, 

2. If there is data, a word is read up and copied into the 
print line buffer. If the lowest byte of the word is 
not zero and 120 characters have not been assembled, 
another word is fetched. 

3. If either a zero byte is found or 120 characters have 
been assembled, a transfer is made to location 2150 
(PRINT LINE). This subroutine finds an available 
printer and prints the line. 

4. Three characters are checked in the first character 
position for carriage control: 

(0) - advance paper one extra line after printing. 

(1) - advance to top of form after printing line. 

(+) - print the last line but do not advance the paper. 

5. If there is a 7X code in column one, the last line is 
printed, and then printer carriage control X is selected. 

6. If none of the above mentioned codes are in column one, 
the line is printed and the paper advanced. 

7. 2LP then returns to its beginning routine to check if any 
data is left in the buffer. 
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46 


























(2lp continued) 
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ROUTINE: 


2PC -- Punch Cards 


PURPOSE: 

GENERAL: 

METHOD: 


To punch either binary or Hollerith cards. 


2PC is called by the CIO Write Function routine once the 
file type has been determined to be a card punch. 


1. A check is made for a request to punch Hollerith. A 
return jump is made to either PUNCH BINARY or PUNCH 
BCD. 


A. PUNCH BINARY 

1. If there is enough data for a full card, the 
punch buffer is cleared for 15 words. 

a) The data is transferred to the punch buffer.. 

b) The card length is set in column one. 

c) The checksum set in column two. 

d) The card count is advanced. 

e) The card count is entered in column 80. 

2. A channel is then requested, with a "PUNCH NOT 
READY" message displayed if needed. If the 
punch is ready, a card is punched, the channel 
released, OUT is updated, and a check for the 
error flag in RA is made. 

3. If an error exists, the PPU is released. 

4. If there is no error, a check is again made to 
see if there is enough data for a full card. If 
there is not enough data for a full card and an 
end-of-record is selected, the partial card will 
be punched. 

5. If there is no data, a 7-8-9 card is punched, 
and IN and OUT are set equal to FIRST. 

B. PUNCH ssssaw- WC p 

1. The punch buffer is cleared for 80 characters. 

2. If there is at least one word left in the buffer, 
the word is converted into 10 Hollerith characters. 

3. A check is always made to see if 80 characters 
have been assembled. If not, a check for a 
lowest order byte of zero is made. If it is not 
present, another word is assembled. 









4. If either 80 characters have been assembled 
or a zero byte is found, the card is punched. 

5. The error flag is then checked in RA and the PP 
is released if an error exists. If there is 

no error, OUT is updated, the card count advanced, 
and a return is ma.de to convert another 80 characters. 

6. If there is not another full word in the buffer 
and a file mark is requested;, 

a) The card count is cleared. 

b) A 6-7-8-9 card is punched. 

c) IN and OUT set equal to FIRST, and 

d) An EXIT taken. 

7. If an end-of-record is requested, 

a) A 7-8-9 card is punched. 

b) The card count is cleared. 

c) In and OUT set equal to FIRST, and 

d) EXIT taken. 
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EnTlK 2PC OvEHuAY 
Punch capos 


MOC..FY Overlay for EGuiPMCNT parameters 


-‘-1 NO 

Is tme ciRCuwAh Buffer is a write-cooeo mode ? >' ■ ■■" . <n£xt pace) 

I YES 





CA 





























{2PC overlay continued) 




_w 

Clear hunCh buFFER for I5 words 

Transfer data to punch SuFfer 

Enter card length in column one 

Enter sum of data bytes mooulo 4095 in column two 

advance card count 

Enter card count in column go 

f 

j 


1 

\‘/ 



! YES 


I 

VI 

I -- 

Clear console message 
REQUEST CHANNEL FOR PUNCH 
Punch one card 
release channel 


V/ 
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ROUTINE: 

PURPOSE: 

GENERAL: 

METHOD: 


2RC - Read Cards 


To read cards from the card reader and process them either 
as binary or BCD cards. 


2RC is called by the CIO Read Function routine once the file 
type has been determined to be a card reader. 


1. If the End-of-Job flag is set, 2RC clears the flag, sets 
the file mark and exits. 

2. A check is made to see if the buffer has room for 15 words 

of input. If not, an EXIT is taken and no read is performed. 

3. A return jump is taken to READ NEXT CARD which requests the 
correct channel, makes sure the reader is ready, and reads 
the next card. 

4. Once a card is read, the card count is advanced in the FST 
entry and a check is made for 7-8-9 punches in column one. 

If there are only 7-9 punches, a transfer is made to 
PROCESS BINARY CARD. If neither condition exists, PROCESS 
HOLLERITH CARD is given control, 

5. After the card is- processed, the IN address of the central 
memory buffer is incremented by the number of words read. 

6. Another card is then read if the buffer length allows it 
and there are no errors. 

7. If a 7-8-9 card was found, an end-of-record indicator is 
set and the card count is cleared. An EXIT is then made. 

8. If a 6-7-8-9 card was found: 

a) and the last record was not complete, the End-of-Job flag 
is set along with End-of-record. The next time through 
2RC, the EOJ flag will be cleared and a file mark will be 
written. 

b) and the last record was complete, the file mark indicator 
is set if the buffer is empty. 

c) and the last record was complete, the EOJ flag and End-of- 
record indicator are set if the buffer is not empty. 

. PROCESS BINARY CARD 

1. The number of significant columns is determined from the 
word count in column one. 

2. If there is a correction punch in column one, the significant 

words are copied into the circular buffer, IN is advanced 
and an EXIT taken. 













3, Otherwise, the checksum is cleared and the column index is 
set to 2. Each significant column is then added to the 
.checksum module 4095. If the checksum is zero, the signi¬ 
ficant words are copied into the buffer and IN is advanced. 

4, If the checksum is not zero, a binary card error is displayed. 

After a 4 second delay, a check is made to see if the card 

reader is ready. If it is not, then the operator is given 

a chance to reread the card. 

5o If the reader is ready, a check of the error flag in RA is 

made. If the error flag Is not set, then the binary card 

error is displayed again. 

B. PROCESS HOLLERITH CARD 

1. The last significant column is determined. 

2. A table look-up is then done on each character to change the 
Hollerith character into display code. The significant 
characters are stored in the buffer by advancing IN. 

3. If the last word's last byte has significant data, a cleared 
word is stored after it. If not, the last byte will be 
cleared. 
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AOO COLUMN TO CHECK SOM MOuUlO 4095 


advance column index 

Was this The last significant column? 


Is CHECK SUM ZERO ? 



COPY SIGNIFICANT WORDS TO CIRCULAR BUFFER 

advance circular buffer in address by 
V/ORD COUNT 


CONSOLE MESSAGE > BINARY CARO ERROR 
DELAY 4 SECONDS 

REQUEST CHANNEL FOR CARO READER 
READ STATUS 
RELEASE CHANNEL 
Is CARD READER READY ? 
























2:PC PfiOCESS mGi^uERiTm CARO 




CESSe TRAiLiNG SPACES AND OCTERMINE 

last significant column 


!S THIS FIRST CHARACTER JN BYTE ? 


NO 


YES 


SET COLUMN INDEX TO FiHST COLUMN 


CtEAR WORD BUFFER 


1 - 

1 SET BYTE INDEX 

TO FIRST BYTE 




Clear character buffer , . 

I___K- 




TABLE LOOKUP FOR DISPLAY CODE 

STORE CHARACTER IN UPPER HALF OF BYTE 

ADVANCE COLUMN INDEX 

Was THIS THE LAST SIGNIFICANT COLUMN ? 


I 

_ 'I _I 

Is ROW 12 PUNCHED ? j 

-HTei- 

i/ 


ADD 60B TO CHARACTER 


1 -^ 

NO 

Is ROW i| PUNCHED P 

1 

YES 


ADO 40B TO CHARACTER 


NO 


IS ROW 0 PUNCHED ? 


YES 


ADD 20B TO CHAHACTtfl 

\ 

' 

Is ROW 1 f 



\ 

NO 

' 

Is ROW 2 PUNCHED ? j- 

\ 

1 NO 
!/ 

IS ROW 3 PUNCHED ? ^ 


NO 

' 

Is ROW 4 PUNCHED ? ' 


NO 

L _ 

Is ROW 5 PUNCHED ? [ 

\ 

NO 

1 

IS ROW 6 PUNCHED ? 


NO 

IS ROW 7 PUNCHED P 

' 

NO 

/ 

!s HOW 8 PUNCHED p 

_ \ 

NO 

[ _ 

Is NOW 9 PUNCHED ? 


V 

YES 

/. 

1 STORE WORD IN CIRCULAR BUFFER 

ADVANCE CIRCULAR BUFFER IN ADDRESS 

Did THIS WORD HAVE DATA IN LAST BYTE ? 

■ \ 

YES 

L _ 

STORE CLEARED WORI 

ADVANCE CIRCULAR Bl 

3 IN CIRCULAR BUFFER 

JFFER IN ADDRESS 




YES 


TABLE LOOKUP FOR DISPLAY CODE 

ADO CHARACTER IN LOWER HALF OF BYTE 

ADVANCE COLUMN INDEX 

WAS THIS The LAST SIGNIFICANT COLUMN ? 


NO 


NO 


Advance byte index 

WAS THIS THE , last BYTE IN WORD ? 


YES 


STORE WORD IN CIRCULAR SUFFER, 

Clear word buffer 

SET BYTE INDEX TO FIRST BYTE 
ADVANCE CIRCULAR BUFFER IN ADDRESS 


YES 




ADO I TO CHARACTER 




ADD 3 TO CHARACTER 


^ ADO 4 TO CHARACTER 


YES 


YES 


^ ADD 6 TO CHARACTER 


YES 


ADO 7 TO CHARACTER 


YES 


ADO iOB TO CHARACTER 


YES 

ADO MB TO CHARACTER 


Is ROW 8 

PUNCHED P 


NO 

' 

' 

IS ROW 9 

PUNCHED p 


NO 


YES I 

ADD IOB TO CHARACTER 


ADO MB TO CHARACTER 


(A) 







































ROUTINE: 


2RT -- Read Tape 


PURPOSE: 


GENERAL: 


METHOD: 


To read binary and BCD data from magnetic tape or rewind 
the tape. 


This package is called by the CIO Read Function when a 

magnetic tape is to be read. Control is transferred by 

CIO to one of three locations within 2RT: 

a) READ BINARY TAPE 

b) READ BCD TAPE 

c) REWIND 

A. READ BINARY TAPE 

1. There must be room in the buffer for a full block 
(lOOOg words) of data or no reading is done. 

2. The requested tape unit status is checked. If it 
is not ready, the message "TAPE XX NOT READY" is 
sent to the control point display and no further 
processing is done until the tape is ready or an 
error flag is set. 

3. One block of data is read in odd parity. If the 
length is less than 4 bytes (signifying noise) it 
is ignored and another record is read. 

4. If an end-of-file was encountered, the buffer status 
is changed to reflect it and an EXIT is made. 

5. When a parity error is encountered, the tape is 
backspaced one block and reread. The message 
"TAPE XX PARITY ERROR" is sent if the parity error 
still exists after 3 attempts. A pause bit is set 
in RA and is cleared only after "X.GO." is typed 
in answer to the display message. 

6. When the pause bit is cleared, the bad data is 
stored in the buffer and a new block is read. 

7. The data is read until an end-of-record or end- 
of-file is sensed. 

B. READ BCD TAPE 

1. The requested tape unit status is checked. If it 
is not ready, the message "TAPE XX NOT READY" is 
sent to the control point display and no further 
processing is done until the tape is ready or an 
error flag is set. 
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NOTES: 


2. One block of data is read in even parity. If an 
end-of-file was encountered, the buffer status is 
changed to reflect it and an EXIT is made. If the 
length is less than 6 bytes (signifying noise), it 
is ignored and another record is read. 

3. If a parity error is sensed, the tape is backspaced 
one block and reread. The message "TAPE XX PARITY 
ERROR" is sent if the parity error persists after 

3 attempts. A pause bit is set in RA and is cleared 
only after "X.GO." is typed in answer to the display 
message. 

4. When the pause bit is cleared, the normal processing 
continues. 

5. The number of significant BCD characters is deter¬ 
mined and trailing spaces are suppressed by a zero 
byte. 

6. The BCD characters are converted to display code by 
a table look-up. A blank (55g) is substituted for 
an illegal character. 

7. The data is copied into the central memory circular 
buffer until a zero byte is found. 

8. Only one record (120 characters) is read and then 
an EXIT is made. 

C. REWIND/UNLOAD 

1. The tape is checked for ready status and if an 
unload was requested the tape is rewound and then 
unloaded. 

2. If only a rewind was requested, the tape is rewound. 

3. The block count in the FST entry is cleared and an 
EXIT is taken. 

1. Noise records in binary is a block less than 4 bytes and 

in BCD less than 6 bytes. 

2. BCD characters which do not have a legal display code 

counterpart become blanks (55g). 
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ROUTINE: 

PURPOSE: 

GENERAL: 

METHOD: 


2TJ -- Translate Job Card 


To check the parameters on the job card for errors and 
assemble the values for use by other routines. 


2TJ is called by IBJ, ILJ, or ILT. The job card is read 
from the control card buffer located in the control point 
area. Upper entry to 2TJ, the buffer parameters are 
passed through the PP's direct core cells. All job card 
parameters except the job name are converted from display 
code to binary. 


1. If the circular buffer contains more than 95 words or 
190 characters, the PP is released with a dayfile 
diagnostic - "TOO MANY CONTROL CARDS". 

2. OthenA/ise, the job name is assembled in left-justified 
display code with trailing spaces. The job name may 
not be blank or begin with a number. 

3. The j)rioriLy is extracted and converted to binary. 

Only the lowest 4 bits are stored for the job priority. 

4. The time limit is extracted and converted to binary. 

The lowest order 5 octal digits are rounded to the nearest 
lOg seconds and stored for the time limit. 

5. The field length is extracted and converted to binary. 

The lowest order 17 bits are rounded up to the nearest 

100,, words, 
o 

6. The PPU time charges for the CP area are cleared in 
order to assign future PP activity to the job. 

7. A dayfile message - JOB CARD ERROR - is caused by: 

a) Job name exceeding 7 characters or not beginning 
with an alphabetic character. 

b) Priority exceeding 7 characters. 

c) Time limit exceeding 7 characters. 

d) Field length exceeding 7 characters. 

8. If any parameter is blank, a corresponding value is 
inserted. 

a) priority - 1 

b) time limit - 10 seconds 

o 

c) field length - 40000g words 
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NOTES; 


1. The routine READ NEXT CHARACTER reads one central memory 
word (10 characters) whenever the character string is 
depleted. 

2. The parameters for the control statement buffer used 
by 2TJ, P60-65, are set by the circular buffer l/O 
routines. 

3. 2TJ and the calling routine IBJ, lU, or ILT are released 
and control reverts to the idle loop if one of the 
following conditions occur; 

a) Too many control cards - more than 190 characters 
in all control cards, excluding trailing blanks. 

About 40 cards can be used and this error usually 
occurs when a record separator (7-8-9 card) has 
been omitted. 

b) If the job name field is blank or absent. 

c) If the first character of the job name field is not 
an alphabetic character. 


63 







2TJ Routines 


Location 

Routine 

Ca 11s 

2000 

Main Program 

2100, 2200, 2300, 

2100 

Assemble Argument 

2140 

2140 

Read Next Character 

- 

2200 

Decimal Conversion 

531, 12-760 

2300 

Assemble Name 

2100 

2340 

Clear PP Time 

04-760 



Direct Core 

Cells 

Entry 

P60/61 

FIRST 


P62/63 

IN 


P64/65 

OUT 


P55 

RA 


Exit 

P30/34 

Job Name 


P35 

Priority 


P36 

Time Limit (Rounded to 

1 Tens) 

P37 

Field Length (Rounded 

to Hundreds) 
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ASSeMQLC NEXT ALPHANUMERIC WOriQ TO SEPANATOFi 
Does word exceed 7 chanactehs ? 


i NO 


OayfilE message*job card error 
release ppu 


Convert octal chai^actehs to ginary \ yes 
Are lowest order a gits zero ^ I 


Was separator a dlank ? 

Tno 


SET PRIORITY I, 

SET TIME LIMIT ONE MINUTE 



SET TIME LIMIT ONE MINUTE 
SET FIELD LENGTH 40000 
Exit 


Assemble next alpmanumlhic word to separator i YES 

Does word exceed 7 characters p i 

-- - - -- --- -- -» 

; NO 


DayFilE message'JOB CARD ERROR 
release ppu 


Convert octal characters to uinahy 
Round up last octal digit 

store lowest OHDEH 5 OCTAw DtulTS AS T.WE liMiT 


































ROUTINE: 


2TS -- Translate Control Statement 


PURPOSE: 


GENERAL: 


METHOD: 


To examine each statement in the control card buffer of the 
control point area and Initiate the execution. 


This package is called by lAJ which was in turn called by 
liTR to advance the job status at a control point. Each 
time a control statement is initiated the PP is released 
and MTR must then reload lAJ. This process continues until 
a blank entry in the control card buffer is encountered and 
lAJ can continue subsequent processing, 

1. If the next control statement is blank, all control 

cards have been processed so an EXIT is made to lAJ. 

2. ASSIGN 

a) No separator is required between ASSIGN and equip¬ 
ment type. 

b) If either field is incorrect, an error flag of 3 
is set in the control point area and an EXIT made. 

A "CONTROL CARD ERROR" message is sent to the day- 
file and the next time lAJ is called the PP will 
be aborted. 

c) The file name from the card is stored and a request 
is made of MTR for the octal code that the equip-' 
ment type designates. If a mnemonic, i.e., WT, CR, 
etc., instead of octal digits, i.e., 51, 42, etc., 
was specified, a console message "WAITING FOR XX" 
will appear. 

d) The file name is assigned an FNT entry with local 
type status. The equipment type is set into the 
FST entry. 

e) The control statement buffer address is advanced so 
that the next statement will be processed when lAJ 
is reloaded. 

f) A dayfile message noting the equipment assignment 
(XX ASSIGNED) is sent and the PP released. 

3. COMMON 

a) If the file name exceeds 7 characters, a control 
card error exit is made. 

b) The FNT is searched for a file name identical to the 
one on the card. It must be assigned to the calling 
control point. 

c) If the found file is not on the disk, MTR is requested 
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to assign the proper equipment. If the request is 
not fulfilled, a console message "WAITING FOR XX" 
is sent and the PP released. 

d) If there is no file assigned to the control point 

with the proper name, a console message "WAITING FOR 
COMMON FILE" is sent and the PP is released. 

s) A file with the correct name and control point assign¬ 
ment iS‘ given common status and then the PP is released. 

3. RELEASE 

a) The FNT is searched for a common file with assign¬ 
ment to the requesting control point and a name 
identical to the control card. If one is found, 
the common type is changed to local so that when 
this job is logged off the file will be erased. 

b) A dayfile message "RELEASE XXXX" is sent even if 
the file was not found. 

c) A common file may be released by a job but still used 
by it because the file is not lost until the job is 
terminated.' 

4. EXIT 

a) If this control card is the next to be executed an 
exit is made from this overlay. 

b) lAJ checks the error flags before any control is 
given to 2TS. If such a flag is set, 2EF is called 
to read the rest of the control cards in the buffer 
and position the buffer parameters to the statement 
after an EXIT card, if one is found, or to a blank 
word, if no EXIT card was issued. 

c) If no errors have thus far been encountered and an 
EXIT card found, 2TS will exit and lAJ will finish 
the rest of its processing. 

d) An EXIT card will cause job termination when encount¬ 
ered if no errors exist in the job. 

5. REQUEST 

a) If an equipment has not been assigned by the operator 
the message "REQUEST XXXX" is sent. 

b) When the operator does make the assignment, the octal 
digits will appear in CP(22). This byte is cleared 
and a blank entry in the FNT is searched for. 

c) The requested file will be given an FNT entry with 
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local type and the equipment number will be set 
in the FST.' 

d) A dayfile message "(XX ASSIGNED)" is sent and the 
PP released. 

6. MODE 

a) The octal digit is assembled and MTR is requested 
to assign the corresponding exit mode. 

b) A dayfile message "MODE X" is sent and the PP 
released. 

c) MTR will change the exit mode in the exchange 
package for the control point. 

7. SWITCH 

a) FNT search 

1) The FNT is searched for a file with the name 
identical to the one on the card and assigned 
to the control point. If none is found, the 
library is searched. 

2) The file must be on disk 0. 

3) The file is then read into central memory 
beginning at RA until an end-of-record or field 
length is reached. 

4) The exchange area is cleared and P is then set 
to the number of arguments + 3 and FL is put 
into AO. 

5) The sense switches already set in the control 
point are passed to RA and RA+1 is cleared. 

6) The parameters on the control card are assembled 
and replace their corresponding entry in the 
argument area. Blank parameters will cause the 
original value to remain. A period or closing 
parenthesis must terminate the parameters. 

7) If the RSS (read next control statement but stop 
before execution) flag is set, the card is sent 
to the dayfile and the PP is released. 

8) Otherwise, the central processor is requested of 
MTR to begin execution of the newly loaded program 
and the statement is sent to the dayfile. 

b) CLD search 

1) Each entry in CID is searched for the file name 
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and if it is found it is read into central 
memory beginning at RA until an end-of-record 
or field length is reached. 

2) The program is read in from the disk in the same 
manner as described by (4) above. 

c) PLD search 

1) If the file name is not found in FNT or CLD, 

PID must contain it or an error results. 

2) If the name does not begin with a letter, an 
error message is sent to the dayfile. 

3) Parameters may appear in the call. If they do, 
then the first one is assembled into bits 

18-35 and the second into bits 0-17 of PP recall 
register. If only one parameter is needed, it 
resides in the lowest 18 bits of the register. 

The call is assembled in the PP recall register 
at the control point so that when MTR senses this 
request, the package will be assigned to a free 
PP. 

4) The statement address is advanced to the next 
statement and the PP is released. 
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2TS Routines 


2000 

Main Program 

2100, 2200, 3200, 3300, 3540, 3100 

2040 

Message for ASSIGN 


2100 

Unpack Next Statement 


2170 

EXIT 


2200 

Search for Special Format 

2240 

Assemble Name 

3100 

2300 

ASSIGN 

2240, 22-760, 3360, 12-760, 2500, 

2040, 3100, 3000 

2400 

REQUEST 

2240, 2500, 2040, 12-760, 3000 

2460 

MODE 

2240, 25-760, 3000 

2500 

Assign File 

740, 750, 23-760, 12-760 

2600 

RELEASE 

2240, 3000 

2660 

COMMON 

2240, 740, 750, 3740, 12-760, 3000 

3000 

Issue Exit 

01-760, 530, 12-760 

3100 

Error Exit 

3000 

3150 

Enter Arguments in 



Program 

2240 

3200 

Search for Assigned File 

2240, 3400, 3460, 3150, 15-760, 3000 

3300 

Search CLD 

2240, 3400, 3460, 3150, 15-760, 3000 

3360 

Console Message 

* 

3400 

Read Program 

740, 700, 400, 750 

3460 

Clear Exchange Area 


3540 

Search PLD 

2240, 3700, 3000 

3640 

SWITCH 

2240, 3000 

3700 

Assemble Data 


3740 

Assign Equipment 

22-760, 3360, 750, 12-760 
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( ------ 

i 2 TS uVCftLAY 

j ThiNSwATt CCNThGL STATEMENT 



j 


I STC-^E WORD AS ECJ.P.V.ENT TYPE DESiGNATiCN 



•YES 


S(On£ WORD AS ri^t NAME 

ftcOUEST MONiTC.'i A^SiG.S ECUlPMENT TYPE CESIGNATED 
V.'AS AN EQUIP .^INT ASS;Cf;E‘v ? 


, NO 


I uOfwOwfe ..:£s5AGE-VVM:TtNG rOft XX 
I RElEANC PPu 


—p^i Clear opuRati 


CS *.StL.-.ED wCUiP.V.cNT Nu...o£R 


f f'cCwc,/1 f*in I uHmNocL 

I Is ThE.nu A OlA.NK ENTRY IN FNT P 
} YES ^ 




release 

CHANNEL 

NO 


REQUEST 

MONITOR RELEASE EQUIPMENT 

1 

J 


CONSOLE 

MESSAGE-WAIT FNT SPACE 



RELEASE 

PPU 


')■ 

j Enter Fp\t \v.7n named lOca^ File 
RElEA sc Channel 

Enter equ.pment numder in p'ile status word 
Set fiuE status to nev/ rit.E 


>t*'SuE STATEMENT TO DAYFiLE 
ADVANoc STAT^N^ENT ADDnESS 


uAYr, lE r..C:,sAOE - (XX ASSIGNED) 


Release pPo 
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RtLliAac FiNT ChAiSNcL 

CONSO;.c: McSSACc - waiting for common FiL£ 

RtLtASE PPU 


Issue statement to oayfill 
Advance statement address 
RELEASE PPU 
























( 2TS CONTINUEDi 


__ 

TlhlT WOHO EXl' 

pNO 


YES 


-a- EXIT FitOM OVERLAY 
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{2TS CGhTiKu&3} 




Error Exit 




















( 2TS CONTINUED) 


SEARCH PLD FOR A PERiPhCRAL. PACKAGE 
whose name agrees WiTn THE FIRST WORD 
Is There such a package P 


1 YcS 


.DOES THE PACKAGE NAME BEGIN WITH A LETTER P 


I NO 


NO 




ISSUE STATEMENT TO QAYFILE 

DayfilE MESSAGE - CONTROL CARD ERROR 

SET ERROR FLAG 

Advance statement address 
release PPU 


I YES 
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ROUTINE: 


2WT -- Write Tape 


PURPOSE; To write both binary and BCD blocks of data on magnetic tape. 

GENERAL; Once a write code is detected in the request parameter, a 

call is made to the CIO Write Function routine which then 
checks the equipment type of the file. When a file type of ' 
tape is determined, a call is made to load 2WT. When the 
mode of binary or BCD is determined, the appropriate trans¬ 
fer is made by CIO. 

METHOD: A. BINARY WRITE 

1. The circular buffer is checked to determine if there 
is a full block of data. If there is not, and an 
end-of-record function is not requested, execution 
returns to the CIO Write Function routine. 

2. If end-of-record is requested, the last partial 
record will be written. 

3. A transfer is made to subroutine Write Binary Tape 
in 2WT to actually write the block. A check is made 
for tape ready. If the tape is not ready, a message 
is displayed and a pause is executed waiting for 
tape to be made ready or the error flag set in RA. 

4. Once tape is ready, the data is written and a parity 
check is made. If there is parity, a message is 
displayed, the tape is backspaced, and rewritten 
until either the parity does not exist or the error 
flag has been set in RA by monitor. 

5. If a good write is performed, the OUT address of the 
buffer is then updated. If a short block was 
written meaning end-of-buffer, IN and OUT are set 
equal to FIRST and EXIT is taken to CIO Write Function. 

6. If the buffer is not empty, more data is written 
until a short record is encountered. 

B. BCD WRITE 

1. If the request is a BCD write request, a jump is 
made from CIO Write Function to the subroutine WRITE 
BCD TAPE at location 2640. 

2, A check is made to see if there is data in the buffer. 
If there is none, and the end-of-record is requested, 

IN and OUT are set equal FIRST. If end-of-record is 
not requested, an EXIT is taken.. 
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NOTES: 


3. If the buffer is not empty, one word at a time is read 
from the buffer and it is converted from display code 
to BCD advancing OUT as each word is read. Whenever 
the last byte of a word is zero, the line is padded 
with spaces up to 120 characters. 

4. When a full line of data is made up, a jump to 3001 
is taken (WRITE CODED RECORD) to write the record. 

The same write and parity checking operation is done 
here as in the binary write. 

5. When a good write is completed the block count is 
advanced, the channel released, and more data is 
written until the buffer is empty. 

C. WRITE FILE MARK 

1. If a file mark is requested, a jump is taken from 
CIO Write Function to WRITE FILE MARK. 

This routine simply finds the tape, makes sure it is 
ready, writes a file mark, advances the block count, 
and releases the channel. 


1. An end-or-record write must be issued to empty a buffer 
which does not contain a full block of data. 

2. Binary tape records has a maximum size of 1000„ central 

memory words. ° 

3. BCD tape records are all 120 characters (one print line). 
Each record is padded with spaces to maintain the proper 
size. 
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Clear console message 

WRITE DATA ON TAPE 





release channel 

READ TAPE STATUS 


SET PAUSE BIT IN (RA) 

Is PARITY CHECK OK ? | 

r 




YES 


NO 


_ ± _ 

ADVANCE BLOCK COUNT 
RELEASE CHANNEL 
UPDATE BUFFER OUT ADDRESS 
WAS BLOCK A SHORT BLOCK ? 

[Tes 





DayfilE message-tape XX WRITE PARITY ERROR 




Pause for monitor 

YES j 

RELEASE PPU 


READ RA 

" i 


IS ERROR FLAG SET ? 




NO 


SET BUFFER IN«OUT«FlRST 


1 

! NO 

HAS PAUSE BIT BEEN 

CLEARED IN (RA) ? 

EXIT 




YES 


_ 1 _ 

REQUEST CHANNEL FOR TAPE UNIT 
BACKSPACE TAPE ONE BLOCK 
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YES 


is AN END RECORD REQUESTED ? 

Tyes 


NO 


SET SUFFER IN 

-OUT-FIRST 

\ 

1 


Exit 





READ ONE WORD PROM CIRCULAR QUFPER 

Convert display code to BCD code sy table lookup 

YES 


Advance buffer out aodre: 

S 



Is LAST BYTE OF BUFFER WORD ZERO p 



NO 





Pad line with spaces to 120 chahactehs 





Clear console message 


WRITE ONE BLOCK 1 EVEN PARITY) 

NO 

read tape status 


Is PARITY CHECK OK ? 



i YES 


_ 1 _ 

Advance block count 
Release channel 

UPDATE BUFFER OUT ADDRESS 



YES 


1 . 



request channel for tape unit 


BACKSPACE tape one block 
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ALPHABETIC PERIPHERAL PACKAGES 


INTRODUCTION 

The packages described on the following pages may be called by a 
central program. They are loaded into a peripheral processor from 
either RPL (resident peripheral library) or PLD (peripheral library 
directory). A central program, by setting the package name in left- 
justified display code in RA+1, requests MTR to assign the package to 
a free PP. Each package begins execution at location 1000 in the PP 
and arguments are passed to it from the central program through the 
lower portion of RA+1. If the execution of the package is terminated 
normally or abnormally the PP is released and must be reassigned when 
it is needed again. 

The last section of this narrative gives a few practical examples 
about the use of some of the routines. 
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ROUTINE: 


BMP Storage Dump 


PURPOSE: 


GENERAL: 


METHOD: 


To enter an octal dump of a requested area of central memory 
into the OUTPUT file. 


This package may be called by a control card or DIS console. 

Three calls may be made: 

a) no parameters - dump only exchange package 

b) one argument - dump from RA to the specified address 

c) two arguments - dump area between the two addresses- 

1. Two checks made on the arguments passed through the 
input register may cause a diagnostic: 

a) terminal address < initial address 

b) terminal address y field length 

Either condition will cause a "DMP ARG ERROR" dayfile 
message and the control point aborted. 

2. In the case that both parameters are equal, i.e., 
usually zero, the exchange jump area (first 16 words of 
control point area) is set up as the dump address. The 
title of the dump is changed to "DMPX." 

3. The ENT is searched for a file of local or common and 
assigned to this control point. The name must be OUTPUT 
and the file on disk 0 with buffer status indicating 
not busy (odd value). If no such file is found, an 
entry of this type is made into ENT so that the dump can 
be printed. The file status in either case is set to 
14g (request coded write). 

4. If no OUTPUT file was found while searching ENT, then 
the new file just added must have a track assignment. 

A track is requested of MTR and when it is assigned the 
number is inserted in the FST entry of the new file. 

5. If the last reference to the file was a read operation, then 
no dumping will be done. This prevents writing over 
output data that may have been repositioned by the read. 

6. The dump has a header of either DMPX, for an exchange 
area dump, or DMP. for any other dump. Each central 
memory word has an address relative to RA and 4 five 
digit groups of data with two spaces between the address 
and data and a space separating each byte. The peripheral 
buffer spans , from 2000-7000 and is filled before it is 
passed to the output file. 
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NOTES: 


The dump address is incremented by one until the 
terminal address specified in the input register is 
reached. A return jump is issued to dump the PP buffer 
into the OUTPUT file when it is full or the terminal 
address is encountered. 

8. The PP buffer is written on disk 0 a full sector 
(100 words) at a time until short sector is found. 

It is written on the disk followed by a file mark and 
then channel 0 is released. The buffer input address is 
reset so that more data may be inserted if the terminal 
address has not been reached. Every write to the disk is 
terminated by a file mark but the sector number is not 
incremented. This will prevent a file from ever 
running away but still allow more information to erase 
the file mark and reside within one file. 

9. After the formatted octal dump has been successfully 
passed to the OUTPUT file, the buffer status byte in 
FST is changed to 15g (completed coded write). Then 
the PP is released. 


1. Successive identical lines are not suppressed. 

2. One print line contains only an address and a central 
memory word. 
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DMP Routines 


1000 

Main Program 

1560, 1100, 1200, 12-760, 



530, 13-760 

1100 

Search for Output File 

740, 750, 12-760, 100 

1200 

Enter Output File 

6-760, 1300, 1600 

1300 

Enter Line in Buffer 

1600 

1560 

Process Exchange Area 


1600 

Dump Buffer 

740, 1700, 700, 1740, 750 

1700 

Enter Control Byte 

6-760 

1740 

Write Sector 


2000 

Disk Buffer 


2030 

Begin Output File 

15-740, 750, 12-760, 100 


Direct Core Cells 


1000 


1100 


1200 


PlO/14 

CP Status 

P50/54 

Input register contents 

P55 

RA 

P60/61 

First argument 

P62/63 

Second argument 

P74 

CP address 

P75 

Input register address 

POl 

File type (local or common) 

PlO/14 

FNT entry 

P20/24 

FNT status later FST entry 

P45 

Last buffer status from FST 

P50/54 

Input register contents 

P57 

FST address 

POl 

Central memory word count 

PlO/14 

PP message buffer contents 

P20/24 . 

FST entry 

P45 

Last buffer status from FST 

P57 

FST address 

P60/61 

First argument 
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P62/63 

Second argument 


P64 

IN address for PP buffer 

1300 

PlO/14 

Central memory word to be dumped 


P60/61 

First argument 


P64 

IN address for PP buffer 

1560 

P60/61 

First argument 


P62/63 

Second argument 


P55 

RA 


P74 

CP address 

1600 

POl 

Central memory word count 


P02 

Sector length 


P20/24 

FST entry 


P64 

IN address for PP buffer 


P65 

OUT address for PP buffer 

1700 

P02: 

Disk status byte 


PlO/14 

Message buffer 


P20/24 

FST entry 

1740 

POl 

Disk status byte from FST 


P20/24 

FST entry 

2030 

POl 

FNT index 


PlO/14 

FNT entry 


P20/24 

FNT status 






Enter track numoER 

IN FILE STATUS WORD 



































YES 


_ 

U POSITiON OISi< 70 NEXT SECTOS 
WHITE FULL SECTOa 

Advance ouffeh output address 


NO 



POSITION DISK TO NEXT SECTOR 
WRITE SHORT SECTOR 
V/RITE FILE I.IARK 
















ROUTINE 

PURPOSE 

GENERAL 

METHOD 


EXU - Execute Compiled Program 


To locate and read a specified file from the disk into central 
memory. The appropriate exchange jump package parameters are 
set up and then the central processor is told that the file is 
ready for execution. 


After a file has been compiled and stored on the disk, EXU is^ 
used to load a file into central memory beginning at the calling 
program's reference address. The location of the name of the 
file (left-justified display code) to be called and executed 
is set in the lower 18 bits of the input register. 


1. The error flag at the control point is checked. If it is 
set, the package is released so that error processing may proceed. 

2o The file name is read in by adding RA and the lower 18 bits 
of the input register. FNT is searched for the file name and 
if it is located a check is made on its control point assign¬ 
ment. 


3. When the file is located, its type from the FNT is checked 
for input and output. Only common or local files may be executed. 


4. The FST entry must reflect that the file is on disk and has 
been used. 

5. A dayfile message of "PROGRAM NOT ON DISK" is sent if. 

a) The file name was not located ia the FNT. 

b) The file was not assigned to the calling control point. 

c) The file has either an input or output status. 

d) The file has an equipment other than disk assigned, 
i.e. it is a card file or tape file. 

e) The file has not been used, i.e. no track has been 
assigned. This status is reflected by checking the 

..beginning track byte in the FST for non-zero. 

6. A request for channel 0 is made and the disk is positioned 
to the beginning track and sector for the file. 


7 The file is read and stored one sector at a time into central 
memory beginning at the control points' reference address. ■ 

Encountering a short sector or reaching the field-limit causes 
the reading of the file to be terminated. 


8 If the field limit was reached before the end of the file, 
a*dayfile message of "PROGRAM TOO LONG" appears and the control 

point aborted. 
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9. Thescchange jump package in the control point area is 
updated to permit execution of the newly loaded program. 


NOTES 


a) First the sense lights and switches from word 26 of the 
control point are stored in KA. 

b) RA+l is read and then cleared. 

c) P in the echange jump area is set to the number of para¬ 
meters from RA+l plus 3, The field length (in hundreds) 
from word 20 is stored in AO. 

d) RA and FL remain the same values, but all of the other 
registers are cleared. 

10. The central processor is then requested by a MTR code 
ISg. When this request has been processed, the PP is released. 


1. The calling program is completely overlayed by the file 
read in off the disk. 

2. Sense lights and switches are passed from the calling 
program to the new program through RA. 

3. The field length specified in RA of the called program 
is ignored. Only the field limit assigned initially to the 
control point is checked. 
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EXU Routines 


.1000 

Main Program 

12-760, 100, 1100, 1200, 
1300, 15-760, 531, 13-760 

1100 

Search for file 

1160, 1064 

1200 

Read program from 

disk 740, 700, 400, 750 

1300 

Clear exchange area 


Direct Core Cells 

1000 

P06 

beginning track number of file 


P07 

sector number 


PlO/14 

CP(20) - status word 


P20/24 

contents of FST entry 


P50/54 

contents of input register 


P55 

RA 


P56 

FL 


P57 

FST status 


P74 

control point address 


P75 

address of input register 


P7200/7702 

disk buffer 

1100 

POl 

control point assignment 


PlO/14 

FNT entry, later FST entry 


P20/24 

File name in left-justified display 


P30/34 

FNT status 
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1200 


13 00 


POl 

P04 

P05 

P06 

P07 

POl 

PlO/14 

P20/24 

P30/34 


control point assignment 
RA. (in hundreds) 

FL (in hundreds) 

track number 

sector number 

control point assignment 

zeroed, later each word of exchange area 

CP (26), later RA.+1 

CP (20) 
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HcLumSE channel 

CuEAR EXCHANGE AREA 

SET P TO lower SiX BITS OF (RA+i) PLUS 3 

Enter fl in ao 
Clear RA anO RA-rl 


REOUtST, CENTRAk. PROCESSOR 

release ppu 













ROUTINE: 


CLL -- Central Library Loader 


PURPOSE: 


GENERAL: 


METHOD: 


To load one or more overlays into an area specified by a 
central memory calling program. 


The location (BA) of the overlay parameters is set into the 
lower 18 bits of the input register. The location (BA) 


BA 


BA+1 


BA+2 


BA+n+2 


beginning address for first overlay 

last address for group of overlays 

name of overlay (left-justified display 
code) 

The address of where the overlay begins will be returned in 
the lower 18 bits of its location in the BA area (ADDR). If 
it cannot be loaded because the length exceeds LIMIT, an 
address of 111111 ^ will be inserted. The address will remain 
cleared if the overlay cannot be located. A zero word must 
terminate the parameters. 


FWA 

LIMIT 

NAME 


FWA 

LIMIT 

NAME 

ADDR 



1 


0. 

.0 


1. The RA and FL are read from CP(20) and stored in hundreds. 

2. From the input register the location of BA is read and 
incremented by RA so the first parameter is read. 

3. When the LIMIT is read, a check is made to insure that 
it is within the field length. If LIMIT exceeds FL, the 
PP is released and no diagnostic results. 

4. Each argument is read and checked for zero. If it is 
zero, then the list is assumed to be exhausted. 

5. The resident subroutine library (RSL) is first searched. 
The first entry in RSL is checked against the name of 
the overlay. If a match is not found, then the field 
length of the RSL entry is added to the beginning address 
of RSL, in order to find the next subroutine in the table. 

6. If the overlay is found in RSL, the length is added to 
FWA and that total may not exceed LIMIT. If it does, then 
mil Q is entered into the beginning address area of that 
overlay (ADDR). The next argument will be read and 
processed. 
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NOTES: 


7. FWA will reflect the next available location for loading 
so it is stored as ADDR for that argument. The program 
is transferred lOOg words at a time and FWA is increased 
by the number of words stored until a short record is 
encountered. A zero length record is not transmitted. 

8. FWA is increased to the next available central memory 
address and then the next argument is processed. 


9. If the name is not found in RSL then the central library 
directory (OLD) is searched. The format of this table 
is; 


0 


NAME (DISPLAY CODE) 


SEC 


TEACK 


42 


12 


It is terminated by a zero word or table limit. 

10. When the overlay is found to be in CLD, then FWA is 
stored as the overlay's beginning address. Channel 0 
for the disk is requested and it is positioned to the 
proper track. 

11. One sector at a time is read and its length recorded. 

If a zero length is found, it is not transmitted. If 
the sector length exceeds the number of words to LIMIT 
then they are not stored and 11111^ is set as the 
beginning address. Track repositioning is checked after 
every read. If the short sector is encountered before 
the LIMIT exceeded, it is stored and FWA is updated to 
be the next available program address. Another argument 
is then processed. 

12. If the name was not found in the RSL or CLD, then the 
job file is read. If the package is found in the FNT, 
then it must be assigned to the calling program's control 
point and be on disk 0. If it is not, then the next 
argument is processed. 

13. When a file is found in the FNT, the same disk operations 
apply as those with CLD. 

14. When an argument is found t:n bi' rn l hen the nrxL 
available program address (FWA) i ■ ..riuud, r,A a; also 
cleared to inform the calling pLugiam that CLL was 
finished. Then an MTR code of 15g, requesting the 
control processor is made and the PP released. 


1. The FORTRAN compiler uses CLL to load its subroutines. 

2. All files loaded by CLL are compiled to execute from 0. 
Therefore, if a program wanted to take advantage of this 
feature, all K portions of the instructions must be 
modified for a different starting point. 

3. The last overlay loaded by CLL is followed by a zero 

T.t 1* 












CLL Routines 


1000 

Main Program 

1101, 1201, 15-761 

1100 

Read arguments 

12-761 

1200 

Process argument 

1301, 1501, 1601 

1300 

Search RSL 


1500 

Search CLD 

1601 

1600 

Enter program from disk 

741, 701, 401, 751 


1000 


1100 


1200 


Direct Core Cells 


PlO/14 

P20/24 

P50/54 

P55 

P56 

P57 

P60/61 

P74 

P75 

PlO/14 

P50/54 

P55 

P56 

P60/61 

P62/63 

P64/65 

POl 

P06 

P07 

PlO/14 

P20/24 

P30/34 

P74 


CP address 
Argument 

Contents of Input register 
FA in hundreds 
FL 

Constant 100 

FWA - next available program address 
CP address 

Address of Input register 
FWA and later LIMIT 
Contents of Input register 
RA 
FL 

Location of BA 

FWA 

LIMIT 

CP assignment 
Track number 
Sector number 
FNT entry 

Contents of Input register 
FNT status 

Address of Input register 
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1300 


1500 


1600 


POl 

Number of words read 


PlO/14 

RSL entry 

'' 

P14 

Total number of words transferred 


P20/24 

Contents of Input register 


P30/34 

RSL status 


P55 

RA 


P57 

Constant 100 


P62/63 

FWA, next available program address 


P64/65 

LIMIT 

- 

P7200/7302 

Input buffer 


P06 

Track number 


P07 

Sector number 


PlO/14 

CLD entry . 


P20/24 

Input register 


P30/34 

CLD status 


POl 

Sector length 


P04/05 

Number of words to LIMIT 


P06 

Track number 


P07 

Sector number 


P20/24 

Input register 


P55 

RA 


P60/61 

BA 


P62/63 

FWA 


P64/65 

LIMIT 
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CLL PACKAGE 
CENTRAL LiBRAflV LOADER 


__JV_ 

READ RA AND FL FROM CONTROL POINT AREA 

READ ARGUMENT AREA ADDRESS FROM PPU INPUT REGISTER 

READ STARTING ADDRESS AND LIMIT ADDRESS 
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ROUTINE: 


PURPOSE: 


GENERAL: 


METHOD: 


LBC -- Loading Binary Corrections 


To load binary cards from the INPUT file into central 
memory. 


The lower 18 bits of the input register contain a beginning 
address for the card loading. If the address is zero, the 
binary cards, are loaded beginning at RA. It may be called 
via a control card or from a DIS console. 


1. From the control point status word (20), the RA and FL 
are read. 

2. Each entry in the FNT is searched for type local and 
assignment to this control point. 

3. If no entry is found, then the PPU is released without 
a diagnostic. 

4. When an entry is found, the file name is checked against 
INPUT. If it does not match, the search of FNT continues 

5. After the INPUT file is located, the FST entry is 
checked. The file must be on disk 0 or the PPU is 
released. 

6. The last buffer status is checked. If it is even, then 
the file is being used and no action will be taken. If 
it is odd, then the file has no operation begin performed 
on it, so the status is decreased by one to make it 
active. When another PP wants to access this file, the 
buffer status will reflect an even number informing the 
requesting PP that the file is being acted upon. 

7. The disk is positioned to the track stated in the FST and 
one sector is read, into PP memory. After each read, 

a check is made for file mark and data exceeding field 
length. If a file mark is encountered, the buffer status 
is made odd and the PP released. A dayfile message 
"LBC RANGE LIMIT" appears if the field length would be 
exceeded thereby also causing the buffer status to be 
changed and the CP aborted. 

8. After the sector read is checked, it is transferred to 
central memory at the location specified from the input 
register. 

9. Only one record will be read from the INPUT file so when 
a short sector is encountered, the buffer status is 
changed and the PP is released. 
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LBC Routines 


1000 

Main Program 

1200, 740, 700, 400, 750, 



12-760, 530, 13-760 

1200 

Search for Input file 

740, 12-760, 750 


Direct Gore Cells 


POl 

Sector length 

PUb 

Track number 

P07 

Sector number 

PlO/14 

CP status (word 20) 

P20/24 

FST entry 

P50/54 

Contents of input register 

P55 

HA (in hundreds) 

P56 

FL 

P74 

CP address 

P75 

Address of input register 

P7200/7702 

Disk buffer 

POl 

File type of local and CP 

PlO/14 

FNT entry 

P20/24 

FNT status 

P20/24 

FST entry 

P50/54 

Contents of input register 

P57 

FST address 
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ROUTINE: 

PURPOSE: 

GENERAL: 


METHOD: 


LOG -- Load Octal Corrections 

To make octal corrections to a program already residing in 
central memory. 


Three calls may be made to this package: 

a) A call without parameters will change the central memory 
words specified on cards in the next INPUT record. 

b) With one parameter, central memory is cleared from EA 
to the address specified and the cards in the next 
INPUT record are assembled. 

c) Two parameters cause the memory between the two arguments 
to be cleared and then the correction cards to be read. 


1. EA and FL are read from CP (word 20). 

2. The arguments, beginning address and terminal address 

of where the corrections are to be inserted are checked. 

a) First greater than second. 

b) Second greater than field length. 

3. If the two arguments are not equal, the central memory 
contained within the two is cleared. 

4. The FNT is searched for a file INPUT associated with this 
control point and of local or common type. If one is 
not found, no diagnostic results, but the PP is released. 

5. The proper file must be on disk file 0 and have an odd 
buffer status (not busy). If either condition is not 
met, then the PP is released. 

6. By decreasing the buffer status by one, this control 
point puts the file in active status. 

7. Channel 0 is requested for the disk which is positioned 
to the proper track from the FST. The PPU buffer is 
filled with the octal correction cards from INPUT until 
the buffer is either full or a short sector is encountered. 

8. The cards ^ve trailing spaces suppressed by a zero byte 

written in lOOg word sectors. Since the buffer is 
bUUOg PP words long, many sectors may be read. Each 
sector has a two word control byte which is not useful 
data to the program. In order to have all the useful 
data packed, the last two words of the previous sector 
are temporarily stored out of the buffer and the next 
sector is read over their initial location. When the 
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NOTES: 


control bytes have been used, the two words are restored 
to their buffer positions and the last two words of the 
sector just read are temporarily stored out of the 
buffer. 

9. When the buffer is either filled or all the correction 
cards read, INPUT is put into an inactive state (status 
is odd) so that another PP may use it. 

10. Each octal correction card is unpacked into a character 
string buffer (one character per word). A zero byte 
terminates the unpacking of one card. 

11. When the line buffer is loaded, the address is assembled. 
The address must be between column 1 and column 7. Spaces 
are suppressed and leading zeroes are not necessary. If 

a non-octal digit appears, the address is not assembled 
and no diagnostic is given. 

12. After the address is assembled, the data word is packed. 
The data must begin after column 7 and contain 20 digits. 
If a non-octal digit appears the word is not assembled 
and no diagnostic is given. 

13. The assembled address is checked against field length and 
is not inserted into its position if it exceeds FL. The 
assembled word is then entered into its assembled address. 


1. If corrections are to be made to a binary deck, LBC 
(load binary cards) should be used before LOG. LOG only 
makes changes to programs already, in central memory. 

2. Gentral memory may be cleared using LOG only if an 
empty record appears in-the INPUT file. 

3. On the correction cards, the address must end before 
column 7. Spacing is i not important and leading zeroes 
may be dropped. 
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LOG Routines 


1000 

Main Program 

1500, 1100, 1200, 1400, 1600 
1300, 12-760, 100 


1100 

Search For Input File 

12-760, 100, 740, 750 


1200 

Load Buffer 

740, 700, 400, 750 


1300 

Assemble Word 



1400 

Unpack Character String 



1500 

Clear Storage 

530, 13-760 


1600 

Assembled Address 





Direct Core Cells 

1000 

P20/24 

FST entry 


P40/44 

Assembled word 


P50/54 

Input register 


P55 

RA (in hundreds) 


P56 

FL (in hundreds) 


P60 

Input buffer address 


P61 

Output buffer addrdss 


P63/64 

Assembled address 

1100 

P75 

Input register address 

POl 

Local type and CP assignments 


PlO/14 

FNT entry 


P20/24 

FNT status 


P20/24 

FST entry 


P50/54 

Input register 


P57 

FST address 

1200 

POl 

Sector length 


P06 

Track number 


P07 

Sector number 


P20/24 

FST entry 


P46 

Data byte 


P47 

Data byte 


P60 

Buffer input address 


P2000/7000 

Buffer 


■ 
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1300 


1400 


1500 


1600 


POl 

Octal digit 

P02 

Byte address 

P40/44 

Assembled word 

P62 

String address 

P60 

Input 

P61 

Output 

P62 

String address 

P7200/7400 

String buffer 

PlO/14 

Zero word 

P50/54 

Input register 

P55 

RA 

P56 

FL 

P62/63 

First argument 

POl 

Octal digit 

062 

String address 

P63/64 

Assembled addrei 
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ROUTINE: 


MSG - Dayfile Message 


PURPOSE: 


GENERAL: 


METHOD: 


To enter messages from a central memory program into the 
dayfile. 


Thi^ package checks the legality of the characters to be 
displayed and transmits them from central memory to this 
PP's message buffer. The lower 18 bits of the input register 
contains a beginning address of the message to be displayed. 


1. The field length from CP(20) is read and the argument 
address of the message must be in bounds. 

2. The message is checked character by character for legal 
display codes ( 0 - 60 g) and if all are legal, they are 
stored in the message buffer area of the PP. 

3. A dayfile message "MESSAGE FORMAT ERROR" appears if: 

a) The argument address is not within the field length. 

b) There is an illegal character in the message. 

c) The message length is greater than 6 central memory 
words. 

4. . In CP(22) there is a count of the total number of 

messages sent to the dayfile from the job assigned to this 
control point. If more than 100_ messages have been 
sent, a dayfile message of "MESSAGE LIMIT" appears and 
CP aborted, 

5. A MTR code of 01 (dayfile message) is sent to the PP 
resident and after it has been processed, the PP is 
released. 
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ROUTINE: 

PURPOSE: 

GENERAL: 


METHOD; 


PEG - Punch Binary Cards. 


To format an area of central memory and punch it in the form 
of binary cards. 


Thi? package may be called by a control card or DIS console. 
Four calls may be Issued: 


1. no par^eters - a binary deck beginning at EA and terminating 
tune address less than the field length specified in the 
first word of the program. This call may be used to punch 
either a central or peripheral program in binary form. 

2. one argument - area between RA and the address are punched. 


3. 


two arguments - first argument is initial address 
IS terminal address for a binary deck. 


and second 


4. flagged - 4000Q0g argument - 
4000000 + address. Lower 18 
it to form terminal address. 


initial address specified by 
bits of this address added to 


1. The initial address for the binary deck is read from the 
input register. 


2 . 


A check is made for the special 400000 q call. If the 
eighteenth bit of the terminal address is set, then the lower 

JrseraftJ is subtracted) 

is set as the initial address. The lower 17 bits of this 

location IS added to the initial address and used as the 

terminal address for the binary deck. Therefore, only a 

limited amount of memory may be punched if the 18th bit 
flag is set. 


3. 


If the initial address is greater than the terminal addre 
the package is released without a diagnostic. 


ss. 


4. 


f the initial and terminal addresses are equal, then the 
lower 18 bits of RA is used as a terminal address. The 
initial address is cleared so that the area between RA 
and the FL-1 will be punched. 


5. When the initial and terminal addresses have been set up 
properly, MTR is requested to assign the card punch to this 
job. If no card punch is available, the processing must 
wait on assignment. 

6. Card punch assignment causes channel and synchronizer 
references within the package to be modified according to 
the entries from the EST. 
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NOTES: 


7. Since the card punch is generally the slowest piece of 
equipment and PEG retains control of the PP until the 
complete binary deck is punched, a pause for MTR to adjust 
RA. and FL during storage move is issued after every card is 
punched. 

8. "PEC RANGE ERROR" and control point abort result if the 
terminal address ever becomes greater than the field length. 

9. The punch buffer is loaded with data for the next card. In 
column one is stored 7-9 punches and card length. The 
data bytes are summed and stored in column two module 4095. 
Column 79 is not used and the binary sequence number is 
stored in column 80. 

10. The punch must be ready or a console message "PUNCH NOT 
READY" is sent. 

11. One card is then punched. 

12. When the terminal address is reached, the package is 
released so that one less than the terminal address words 
are punched. 


1. The flagged call is used by the Fortran compiler to punch a 
deck in I mode. 


- 30 - 








PBC Routines 


1000 

Main Program 

1640, 1600, 1200, 1500, 1100, 
1300, 1400, 23-760, 12-760, 

100 

1100 

Sense CP status 

17-760, 530, 13-760, 12-760, 

100 

1200 

Request CP 

22-760, 1100 


1240 

Sense punch ready 



1300 

Load Punch buffer 



1400 

Punch one card 

13-740, 1240, 1440, 750 


1440 

Output one byte to punch 



1500 

Modify program for 

equipment parameters 



1540 

Channel modification table 


1560 

Synchronizer modification 
table 



1600 

Process RA length 

12-760, 100 


1640 

Process flag length 
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PBC PACKAGE 
Punch binary cards 
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Program Partitioning 


Introduction 

Chaining is a method used to execute a program which exceeds 
available storage or field length. The program' is separated 
into a main program and any number of segments which may be 
called and expcuted as needed by the FORTRAN program. Both 
the main program and segments may contain one or more sub¬ 
routines and/pr functions. Overlays may be loaded (and 
executed) or replace the calling program by appropriate 
central prografn machine language action. 








II. RUN Modes 


A copy of the compiled program or segment(s) is always left on the 
disk. Either may be called (by name) and executed separately. Each 
partition (segment) including its subroutines must be separated from 
the main program or other partitions by a record separator. Two 
consecutive record separators must separate the last END statement 
from the first data card or file separator. 

A. Chain Mode -- RUN(C,.) 


Chain mode is comparable to 6 mode except that segments may be 

1 assembled following the main program. That is, no listing is pro¬ 
duced and execution is assumed unless compile errors are encountered. 
The programs to be compiled must be a PROGRAM followed by one or 
more SEGMENT(s) each separated by a record separator, 

B. Batch Mode -- RUN(B,.„.) 

Batch mode is comparable to S mode except that any combination 
of one or more programs, subroutines, segments, or functions may 
be compiled. Also, a listing of the source language is always ' 
produced and execution is not assumed. Each program and segment is 
written on the disk as a file using the name specified on the 
PROGRAM or SEGMENT card. Therefore, execution may be initiated 
by a Program Call Card. 
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III. FORTRAN Usage 


A. Definition of Segment 

Each segment must begin with the statement: 

SEGMENT name (f., f„, f, f ) 

i / j n 

where name is an alphanumeric identifier for the segment. This 

is the name that must be used when calling the segment 

f , f^ ..are file names of the files used any place in the 
^ ’program. These file names must agree in number and 
order with those specified for the main program. 

All files used in the execution of the main program 
and all segments must be specified on the PROGRAM 
and all SEGMENT cards. 

Compilation of segments and programs differ only in the following 

respect: 

1, Blank common is not cleared to zero by the object code 
in a segment, 

2, Buffer space and parameters are not initialized by the 
object code in a segment. They are carried over from the 
main program in order not to destroy any input or output 
when calling segments, 

B. Calling a Segment 

A segment is called by using the FORTRAN statement; 

CALL CHAIN (name) 

Where CHAIN is the subroutine that loads and initializes 
execution of the called segment. 

name is the identifier of the segment to be loaded and 
executed. 

Segments to be called by CHAIN may reside as a named file on the 

disk. The only parameter to CHAIN must be the segment name. 


C. General 

1. Segments may be called from either the main program or 
another segment. 

2. Calling of a segment causes the segment to be loaded over the 
calling program thus destroying the main program or segment 
that issues the call, 

3. Segments may be called more than once. 

4. Parameters and communication between segments can be passed 
only through the use of blank common. 
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5. Each segment is compiled beginning with relative address 
zero (RA = 0). 

6. In order to match locations of blank common, all elements of 

common must be described in the same order and number 
in the main program and all segments ££ the length of 
common must be declared on the RUN card. 
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Example: 


CHNTST, 1, 100, 40000 
MODE 7. 

RUN (B) 

CHN. 

7-8-9 

* PROGRAM CHN (INPUT, OUTPUT, TAPElO) 

** COMMON I, J, K, A^), B(10) 

READ 5, A 


7-8-9 

* 

** 


CALL CHAIN (S2) 

END 

SEGMENT SI (INPUT, OUTPUT, TAPE 10) 
CCMMON I, J, K, A(5), B(10) 


WRITE (999, 10) B(10) 


CALL CHAIN (S3) 

END 

SEGMENT S2 (INPUT, OUTPUT, TAPElO) 
COMMON I, J, K, A(5), B(10) 


CALL CHAIN (SI) 

END 

SEGMENT S3 (INPUT, OUTPUT, TAPElO) 
COMMON I, J, K, A(5), B(10) 


END 

7-8-9 

7-8-9 

Data Deck 

6-7-8-9 

* These statements must specify all file names even though they are not 
. referenced in the segment or program, 

* All elements must be included in the list. 


7-8-9 

* 

** 


7-8-9 

it 

** 
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IV. Machine Language Calls 

Two peripheral packages are available for loading and/or executing 
segments,. One loads one or more segments. The other loads and 
executes one segment or program destroying the calling ptogram. 

A. EXU 

This package loads a program to replace the calling program and 
initiates execution of the loaded program. The calling program is 
destroyed. 

1. CALL 

The routine is called by setting certain parameters into 
RA+1 of the calling program. 

RA+1 = EXUOO.OLLLLLL 

18 24 18 bits 

when EXU is in display code, 

LLLLL is the address of the argument . The argument 

is the name of the central program to be loaded 
and executed. The name is specified in display 
code with trailing spaces . 

2. Usage 

After the monitor recognizes the request in RA+1 and 
assigns a PPU to process the request, RA+1 is cleared to 
zero by the PPU. At this point, the central program must ter¬ 
minate itself normally in order to allow the PPU to load the 
program. The central program is terminated by placing END 
(trailing spaces) in RA+1 and looping until it is terminated. 

EXU resets or clears all operational registers - A , B , X - 
before executing the called program. 

EXU loads only from job files on disk 0 (common or local) 

3. Example: 

Following is an ASCENT subroutine which may be called from a 
FORTRAN program to call EXU. This example is very similar 
to the CHAIN subroutine except the name of the program is 
fixed to SEGl. 

Col. 2 7 11 

ASCENTF SUBROUTINE LDS 
PS 
PS 

EXIT PS 

TAGl SAl = 1 
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TAG2 


TAG4 


NZ X. TAGl .ASSURE RA+1 = 0 

SX6=053025B 

LX6 42 

SX1=SEG1 

IX6=X64X1 

SA6=1 .SET RA+1 TO EXU PARAMETER 

SA2=1 

NZ X2 TAG2 .WAIT FOR PPU TO ACCEPT CALL 

SX7=051604B 

LX7 42 


SA7=1 .SET RA+1 TO END 

ZR BO BO TAG4 .WAIT FOR THE PROGRAM TO TERMINATE 


SEGl CON 23050734000000000000B 

END 


B. CLL 

This package loads one or more central programs or segments into 
an area of memory specified by the calling program. 

1. Call 


This routine is called by setting certain parameters into 
RA+1 of the calling program. 

RA+1 = CLL 0.0 BA 

18 24 18 bits 


BA 


FIRST 

BA+1 


LIMIT 

BA+2 

PROG 1 

PI 

BA+3 

PROG 2 

P2 


BA+n+1 PROG n Pn 

BA+n+2 (zero) 

where CLL is in display code 

BA is an 18 bit address where the parameters are 
located 

FIRST is the beginning address for loading the first 
program. 

LIMIT is the limit address for loading the programs 

PROGl 

PR0G2 

PROGn are the names (in display code with trailing 

spaces) of the programs or segments to be loaded. 

P1,P2 

..,Pn are set by CLL after loading the programs and are 
the beginning addresses of the associated overlays. 

All of the parameters except Pn must be set up by the calling 
program prior to setting RA+1. 
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2. Usage 

CLL loads the programs one at a time beginning with the 
name specified at BA+2. The order of search for locating 
tlfe overlays is: 

1. Resident Subroutine Library - RSL 

2. Central Library Directory - CLD 

3. Assigned Job Files - common or local 

The programs are loaded into the consecutive memory locations i 

beginning with FIRST. No program may be loaded beyond the .^ 

address specified by LIMIT. After a program is loaded, its 

beginning address is entered into the lowest 18 bits of the j 

respective parameter word. After Cll has completed the call, ,J 

BA is cleared to zero. 


If program cannot be located, the address Pn for the program 
is not modified by CLL. If a program exceeds LIMIT, the value 
777777 is entered into the respective address Pn. The last 
parameter must be followed by a full word containing zero. 


It should be remembered that programs and segments compile with 
a reference address beginning with zero (000000). Since the 
central program calling CLL resides at zero, the loaded 
programs (by CLL) will not have proper address terms for those 
instructions containing 18 bit address. Therefore, the 
user must modify the addresses of the loaded program or use 
some addressing scheme where the calling program defines a 
pseudo-reference address in an index register whenever 
memory is referenced. 
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CIRCULAR INPUT OUTPUT 


CIO 


INTRODUCTION 

All input and output for a file is passed through a circular central 
memory buffer. Buffer parameters are initialized by the central memory 
program and then the CIO package is called to perform the transfer to or 
from the physical medium of the file. These parameters are altered by CIO 
or the central program as data is inserted or extracted from the buffer. 

A circular effect is achieved by allowing the data to wraparound the buffer 
whenever the limit address of the buffer is reached. For example, on an 
input request data is inserted into contiguous words until the last address 
of the buffer is encountered. The next piece of data will be stored in 
the beginning address of the buffer so that the total capacity of the 
buffer may be utilized. All system central memory buffers, i.e. dayfile, 
etc., use this circular motion even if CIO is not specifically called to 
perform the I/O operation. 

CALLING SEQUENCE . . , 

A program requesting I/O must set up certain buffer parameters. The 
location of these parameters is sent to CIO via the lower 18 bits of EA+1. 
These parameters, along with the buffer itself must reside within the 
field length of the job, and their addresses are relative to RA. 

Five central memory words, designated as BA to BA+4, hold the para¬ 
meters. In the first word is the name of the file in left-justified display 
code to be acted upon and a six bit code called the buffer status. The 
first digit of the buffer status specifies the type of operation: the 
second gives the direction (read/write) and the mode (coded/binary). 
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BA+1 contains the beginning address of the buffer and is called FIRST. 

Along with LIMIT, the last address of the buffer plus one, FIRST remains 
dormant, i.e. CIO never changes these values. No data is stored in LIMIT. 
When LIMIT is reached, the next available address for storage is FIRST. The 
buffer capacity is referred to as the area between FIRST and LIMIT-1. 

The two remaining words, BA+2 and BA+S, are the actual pointer addresses. 
IN (BA+2) defines the next available address for insertion of data into the 
buffer. OUT (BA+3) holds the address for removal of data from the buffer. 
Therefore, the amount of data residing in the buffer is that between IN and 
OUT. IN is advanced around the buffer, but never passing OUT so as not to 
overstep the buffer capacity^ by a 'read' operation. Any 'write' request 
causes OUT to move in the direction of IN and to pass data from the buffer 
to the file in its advance. 

Either CIO or the central program may update IN and OUT. By moving IN, 
CIO could read data from a file to the buffer and the central program could 
remove the data from the buffer for its own use by moving OUT. The opposite 
effect would result if the central program inserted data into the buffer by 
incrementing IN and CIO transferred the buffer data to the file by moving OUT. 

Initially, the buffer parameters are set FIRST IN =OUT with IN and 
OUT circling the buffer as data is inserted or removed. An empty buffer is 
reflected by IN = OUT. This condition is distinguished from a full buffer, 

IN = OUT-1, by an unused word between IN and OUT. The useable data in the 
buffer begins at OUT and continues (circling the buffer if necessary) to 
IN-1. 
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CIO PARAMETERS 






BUFFER STATUS 


The buffer status appears as a 2 digit octal code in the lower 6 bits 
of BA. This code indicates the mode of the buffer and provides an interlock 
for peripheral package activity. The buffer status has an even value when 
CIO is called. It is set to an odd value when the peripheral package has 
completed the I/O function. This six bit code is also kept as the last 
buffer status in the FST entry for the file. Whenever this value is checked 
and found to be even, the file is assumed to have an operation being per¬ 
formed on it, i.e. it is active. An odd value means that the file is not 
busy and is available for use. 

Normal reads and writes use 'buffer I/O' as the type of operation 
(first octal digit with the second digit specifying the mode). This is 
interpreted by CIO as a request to transfer as many records as possible 
between the file and the buffer. A short record, i.e. end-of-file or 
end-of-record, or a full buffer will terminate a read operation and a 
write request is stopped whenever OUT = IN. If a read was requested, CIO 
will alter the code to indicate whether an 'end-of-record' or 'end-of-file' 
was read. Whenever the buffer is to be emptied to the file by a write 
operation, the central program must issue either an end-of-record' or 
'end-of-file' write. This causes all of the data to be transferred and an 
'end-of-logical-record' or 'end-of-file' to be written on the file. 
Therefore, if the buffer does not contain a full record of data and an 
'end record' write was not issued, no data will be transferred. 

T^Then MTR accepts the I/O request by assigning CIO to a PP, RA+1 is 
cleared. In order for the central program to know when the PP has finished 
the I/O operation, the buffer status must be checked for an odd value. 











LIMIT 
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If a 'read' was requested, the first octal digit may have been altered by 
CIO, but otherwise, only the second digit is incremented by one. On a 
'binary backspace' the first digit is a 4 and the second may be either a 
2 or 6 because only the second bit in the code is checked for the set 
condition. 

INTERM^-L STRUCTURE 

Whenever an I/O operation is to be performed on a file, the CIO package 
is assigned to a peripheral processor. CIO examines the request and passes 
control within itself to the proper function. The buffer parameters are 
checked for legality to insure that the operation remains within the job's 
field definition. 

A file may be of any equipment type - disk, card reader, card punch, 
line printer, or magnetic tape. The driver for each operation on a piece 
of equipment is written as a separate routine. The CIO function decides 
which driver is needed and calls it into the PP as an overlay. These over¬ 
lays do the physical I/O and update the buffer parameters accordingly. 
Whenever their task is finished, CIO completes the request so that the 
calling program may continue its execution. 

OPERATION 

Each function ( read, write, or backspace) within CIO calls special 
orerlays. These overlays do more specific parameter checking to insure 
tl.at the buffer can contain the amount of data requested. Parity error 
checking and buffer status updating are also the responsibilities of the 
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The Read function calls 2RD'(read disk), 2RT (binary tape read), 

2RC (read cards), and 2RT (BCD tape read). IN is incremented to reflect 
the number of words read from the file to the buffer and the first octal 
digit of the buffer status may be changed if an 'end-record' or'end-file' 
is read. 

Data is read by 2RD one sector (100^ central memory words) at a 

O 

time until a short sector is encountered or the buffer is filled. If a 
disk parity error is found, the sector is reread with varying margins 
three times and if it persists the PP stops. Only dead start will force 
reinitialization. 

2RC transfers only useable data to the buffer by suppressing trailing 
blanks with a zero byte ( 12 bits). Ten characters per word are translated 
from Hollerith to display code and packed until a zero byte is inserted 
to signal 'end-of-physical-record'. A 7-8-9 card causes a short sector 
to be transferred. Only one file mark may appear within one diskfile, so 
when a 6-7-8-9 card is found, an 'end-of-record' sector is copied along 
with a second short sector to indicate end-of-file. 

A binary record of less then 4 bytes is considered a noise record by 
2RT. If this overlay discovers that there is not enough room in the 
buffer to handle a full block of 512 words, no data is transferred. A 
read is tried 3 times before a parity error message is sent to the dayfile. 
Only one block of data is read per request. Rewinding is also done by 
this overlay. 

A BCD tape record is a constant 120 characters long. All trailing 
spaces are eliminated by a zero byte and the BCD characters are translated 
into display code. A record less than 6 bytes is considered noise and a 
record is read 3 times before a parity error message is sent. 
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The Write function is in«charge-of updating OUT. As data is removed 
from the buffer and copied to the file, OUT moves in the direction of IN 
until OUT = IN. Only a short record request will cause the buffer to be 
completely dumped of information and the appropriate indicator to be 
written on the file. 

A check is made to see if the last reference to a disk file was a 
vrrite. If it was not, the tracks thus far reserved by the file are 
dropped by 2DT. This provides multi-use of a file. Data written on a 
file can be backspaced and read and another write request will cause the 
beginning of the file to be referenced. 

2WD is loaded to write disk data. If there is not enough data in 
the buffer for a full sector (64 words) and an 'end-record' was not 
requested, no data is written on the file. Every write is terminated by 
an EOF sector but since none of the parameters are advanced, the next 
vrrite request will write over this sector. It prevents a file from ever 

running away. Two tracks are requested at once so that time is not wasted 

whenever one track is filled and another is needed. 

To punch both binary and Hollerith cards, 2PC is loaded. This overlay 

is called whenever a file has been assigned to the card punch by a control 

card and a write operation requested on the file. Eighty characters or 
the number of characters to the first zero byte are assembled from display 
code to Hollerith. A 7-8-9 or 6-7-8-9 card is punched if requested. In 
the case of a binary request, 15 words of data are punched on a card with 
the appropriate binary controls - word count, 7-9 punches in column one, 
checksum, and sequence number. 
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2LP is loaded to print the file assigned to a line printer. A print 
line consists of either 130 characters or the number of characters' to a 
zero byte. Page spacing is checked by this overlay. 

To write a binary tape 2WT is loaded. This overlay is called into 
play to do all writes on 1" tape and binary writes on tape. Coded 
records on 1 ” tape are in packed display code and terminated by a zero 
byte. A logical record consists of IOOO 3 central memory words. If a 
parity error is encountered, the tape is backspaced and rewritten with 
no erasing until a good write is made or an error flag is set. 2WT 
also writes a file mark when one is requested. 

2WT is loaded to write BCD tape. All BCD tape records are 120 
characters long. If a zero byte is found before 120 characters have been 
converted from display code to BCD, the record is padded with spaces until 
120 characters are reached. The writing continues for full blocks of data 
contained in the buffer until an 'end-record' or 'end-file' is requested 
to empty the buffer. 

The Backspace function is called to backspace either binary or coded 
records. An end-of-file is considered a record or a coded line in each 
mode respectively. This action causes IN to be advanced down the buffer 
and a read is not necessary after a backspace to make the data available 
for use. A binary disk backspace may be very slow. Since a record can 
be written on several tracks, each pointer word before each sector must 
be checked for a track change. If a file contains only one record, a 
rewind operation is much faster. 

2BD does either binary or coded backspacing on the disk. A binary 
backspace is done until a short sector is found. The file will be 
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positioned either in front of the file mark just written or at the 
beginning of the last record. Only one coded line is backspaced with 
this request. OUT will reflect the address before the last card image 
or zero byte. No read is required to bring the data back in because the 
pointer words are properly adjusted. 

2BT is loaded to perform the same backspace operations on tape. 

The physical tape is moved. 


RECALL 


The central program retains control of the central processor while 
CIO is performin the I/O operation. MTR clears EA+1 when the CIO request is 
accepted informing the central program to continue processing. If no 
further processing can be done until the data is transferred, the central 
processor should be given to another job. By inserting an RCL call 
(recall) in RA+1, control is taken away from the central program by 
MTR and switched to another job. Control is regained when a PP com¬ 
pleting an operation tells monitor to recall the proper central program, 
or a time span of near 250 ms. has lapsed. Effective use of recall 
allows the central processor to be utilized more efficiently. 

A workable sequence of events that will allow the central processor 
to execute other jobs while an I/O operation is holding up a central 
program is: 

1) Send CIO call to RA+1 

2) Wait until MTR has accepted the request by clearing RA+1 

3) Check buffer status for an odd value. 

4) If an odd value is found, continue normal processing, otherwise 

send RCL call to RA+1 

5) Repeat steps 2-4, exiting only if the buffer status is odd 
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BUFFER STATUS 


first digit 


second digit 


OX not used XO 
IX buffer I/O XI 
2X end record X2 
3X file mark X3 
4X backspace X4 
5X rewind X5 
6 X rewind/unload X6 
7X not used yj 


request coded read 
completed coded read 
request binary read 
completed binary read 
request coded write 
completed coded write 
request binary write 
completed binary write 


EXAMPLE: 


READ 


request to CIO 

answer from CIO 
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full buffer 

end of record encountered 
end-of-file encountered 


WRITE 


n 


request to CIO 



dump as many complete records as possible 
empty buffer and write end of record 
empty buffer and write end of file 


^answer from CIO 


X5 


where X from the call is unaltered 
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DAYFILE 


INTRODUCTION 


The dayfile is a combination accounting medium and job status record. It appears 
as a major display for the system console and is part of every job's output. Any 
message a programmer wishes to convey to an operator is passed through the day- 
file. All control cards, error diagnostice, running times, and equipment assign¬ 
ments appear as a console display and are later sorted for a particular job's out- 
put. 

A message may enter the dayfile from a central memory program or a peripheral 
routine. In the case of a central memory program, a peripheral package (MSG) is 
called to transfer the message from central memory to the PP message buffer and 
then to inform monitor that dayfile action is required. A peripheral routine 
need only put the message in the message buffer and let monitor take the appro¬ 
priate steps. When monitor does sense that a message is ready, it transfers the 
message to the associated control point's dayfile area and then sends the message 
to the dayfile buffer in the proper format. This new entry is then picked up by 
the display program (DSD) and shown on the console. 

STRUCTURE 

The dayfile buffer status (DFB) is contained in word three of central memory. It 
points to a lOOOg word buffer for dayfile entries and maintains the FIRST, IN, 

OUT, and LIMIT addresses. Each entry made in the dayfile consists of three parts. 

1) The time that a message is sent. 

2) The name of the job to which the message belongs. 

3) The message of not more than six words. 

All three parts are in separate words. Therefore, every dayfile entry is at 
least three words long but not more than nine. The time is read from word thirty 
of central resident and is in the form XX.YY.ZZ. where XX is hours, YY is min¬ 
utes, and ZZ is seconds. At dead start this word is zeroed so it will reflect 
the time since dead start unless a "TIME" entry is made to DSD via the keyboard. 

Monitor changes the spaces in the job name to blanks and terminates the field 
with a period. A zero byte ends the message so that word after word is trans¬ 
ferred until the zero byte is found. 
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UPDATING BY CENTRAL PROGRAMS 


In oirdeir for a central program to make entries into the dayfile, a peripheral 

program (MSG) is called to retrieve the message from central memory and inform 

monitor of the request. The location of the message and MSG (in left-justified ' 

display code) is inserted in RA+1 of the program. This causes MSG to be assigned | 

to a PP and the message transferred to the PP's message buffer. . J 


A check is made to insure that every character is a legal display code. If an 
illegal character is found, MESSAGE FORMAT ERROR is is'sued to the dayfile and 
the job is abandoned. Every entry made into the dayfile by a particular job ad¬ 
vances a message count by one. In MSG this total is examined for an excess of 
100 messages. No more than 6 words may be passed to the dayfile in one message. 
If either of these rules is violated, MESSAGE LIMIT is sent to the dayfile. 

After the message is residing in the PP's message buffer, MTR is informed so that 
the message can be passed to the dayfile buffer. MSG is used by the Fortran com¬ 
piler to enter the name of the program currently being compiled or executed.. 


UPDATING BY PERIPHERAL PROGRAMS 

In a peripheral processor's resident program is a section of coding which copies 
a message from a transient program into the PP's message buffer. Each of these 
messages is assumed to have legal display codes and ended by a zero byte. The 
location of the message is in the A register upon entry to the routine. A return 
jump to location 530 will cause the message to be transferred to the PP's message 
buffer and then MTR is told of the request. 

All transient programs use this method of making entries into the dayfile and 
each request will advance the message count at a job's control point, even though 
MSG is the only program which checks for a excess of the limit. 


MTR - ISSUE' DAYFILE 

Whenever a PP has a message for the dayfile, the message is put into the message 
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buffer and 0001 is inserted into the first byte of output register. MTR senses 
a request and begins dayfile updating procedures. 

The message is passed from the PP buffer to an eight word area in the control 
point area. Word 30 of central memory which contains the current time is read 
into one word and the name of the job is put into another word. Next the message 
is copied until a zero byte is encountered and then all three sections are sent 
to the dayfile buffer. The PP output register is cleared to inform the PP that 
the message has been transferred. Only at this pointe is the message count in¬ 
creased by one so that every message is totalled. 

IN and OUT are checked to see if 100 words (a full sector) of information is 

O 

contained in the day file buffer. If there is, phase one dump flag is set. No 
additions may be made to the buffer when a dump flag is set. 


MTR - COMPLETE DAYFILE 

This function is issued by IDJ (print package) or ITD (tape dump package) when 
a job's output is being formatted. Its purpose is to remove all dayfile infor¬ 
mation from the buffer to the disk so that only the disk need be read when a job's 
dayfile is to be printed. The complete dayfile flag and 'dump phase one' flag 
are set. If the 'complete dayfile' flag is found to be set, then this is the sec¬ 
ond time through so it is cleared along with the output register. 

Only the two MTR functions issue dayfile and complete dayfile, may set phase one 
dump flag. 

MTR - CLOSE OUT 

The dayfile buffer is dumped into the disk whenever a full sector of data is built 
up or whenever a job is to be printed. This process involves several steps, each 
of which set a flag for the subsequent phase. No entry may be made to the buffer 
when a dump flag is set. 
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On MTR's main loop a check is made to see if a dump flag is set. This 
flag is an address of the next phase and each phase is entered by a 
return jump. Every disk positioning request constitutes a different 
phase so that time is not wasted waiting on the disk. 

Phase one requests channel 0 for the disk and phase two dump flag is 
set. MTR regains control and will continue its processing until the 
dump flag is checked again. This time phase two is entered via a 
return jump. If channel 0 is ready for use, a request for disk posi¬ 
tioning to the proper track is issued and phase three dump flag is set. 
The current track and sector to be used by the dayfile is maintained 
by absolute coding. The 'update control byte' routines set the value 
of the current track and sector into the different dump phase locations 

directly. 

Phase three checks channel 0 disk file status. The next sector must 
correspond to that set by 'update control byte' or an exit is made. 

One sector is written on the disk and the buffer parameters are updated 
accordingly. Then phase two flag is set. The buffer is dumped one 
sector at a time until a short sector is encountered. It is written 
on the disk but neither the buffer parameters nor the sector number are 
advanced. This scheme is used in order to maintain the dayfile as 
one record but still have all the information on the disk. Channel 0 
is released via, the output register and phase six flag is set if a 
spare track is assigned. If no spare track has been assigned, channel 
0 is still released but phase four dump flag is set. 
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Phase six makes sure that the channel is released and clears the dump 
flag. This terminates dumping the dayfile buffer onto the disk so 
that normal processing may continue. 

Phase four requests a track of MTR and sets phase five dump flag. When 
phase five is entered via a return jump, the spare track number is 
retrieved from the first byte of the message buffer and then the dump' 
flag is cleared. This also completes the dayfile dump. 

JOB DAYFILE LISTING 

At the end of each job's output a complete history of each run during 
one dead start period is printed. IDJ (print package) or ITD (tape 
dump package) requests MTR to dump the dayfile buffer contents on the 
disk in the manner just previously described. Next, one sector of the 
dayfile is read and it is searched for the job's entries by 2SD (search 
dayfile). 

Since the time a message is issued appears in the word before the job 
name, every word of the sector is checked for the proper job name. If 
the word does not match, it is copied into the peripheral buffer but 
its parameters are not advanced. When the name finally matches, the 
time has already been copied into the peripheral buffer so the job 
name is added in the next word. Then the subsequent message is trans¬ 
ferred until the zero byte is encountered. 

Control fluctuates between the dump package, i.e. IDJ or ITD, which 
reads a sector of the dayfile, and 2SD, which searches it for a parti¬ 
cular job name. The dayfile is searched in this manner until a short 















sector is found. When it is encountered, a MIR function requesting 
assignment of PP time to the control point is made. This computes 
the total PP running time and stores it in word 24 of the control point 
area. 2SD converts this time to decimal seconds and then sends out a 
dayfile message "PP XXXX SEC". 

A top of form request is made as the first entry into a circular buffer 
in central memory. The peripheral buffer containing the dayfile informa' 
tion for this job is copied to the circular buffer. An entry of the 
same type, "PP XXXX SEC", that was sent to the dayfile is added to the 
circular buffer. Now the job's dayfile is complete and ready for 
printing. 

NOTES 

1. The dayfile is the first entry in FNT. It is set from the library 
tape and is of common type so that any program may access it. 

2. Any message sent to the dayfile also appears as a console message 
(line 3 of the control point display) 
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